Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.73/15: Рейтинг темы: голосов - 15, средняя оценка - 4.73
9 / 2 / 0
Регистрация: 16.12.2011
Сообщений: 106

Определить,равна ли первая цифра числа его последней цифре.

22.01.2012, 22:50. Показов 2892. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
1.Дано натурально число.Определить,равна ли первая цифра числа его последней цифре.
2.В двумерном массиве размером n*m
a)максимальный элемент в каждой строке
б)минимальный элемент в каждом столбце
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
22.01.2012, 22:50
Ответы с готовыми решениями:

Найти количество трёхзначных чисел первая цифра которых равна последней цифра этого числа
Найти количество трёхзначных чисел первая цифра которых равна последней цифра этого числа. спасибо!

По последней цифре числа определить последнюю цифру его квадрата
Написать программу , позволяющую по последней цифре числа определить последнюю цифру его квадрата

По последней цифре заданного числа определить последнюю цифру его куба
составить программу , позволяющую по последней цифре данного числа определить последнюю цифру куба этого числа.

2
 Аватар для Gorev
135 / 132 / 30
Регистрация: 08.12.2009
Сообщений: 565
Записей в блоге: 3
22.01.2012, 23:13
Лучший ответ Сообщение было отмечено Proskurina как решение

Решение

Pascal
1
2
3
4
5
6
var s:string;
i:integer;
begin
read(s);
if s[1]=s[length(s)] then writeln('Да') else writeln('НЕТ');
end.
Первая
0
20 / 20 / 26
Регистрация: 11.08.2011
Сообщений: 82
23.01.2012, 01:50
2:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
uses crt;
 
const n=5;
      m=5;
 
type ma = array[1..n,1..m] of integer;
 
var mas:ma;
    i,j:integer;
    max:array [1..n] of integer;
    min:array [1..n] of integer;
 
Begin
clrscr;
{Ввод}
for i:=1 to n do
begin
 for j:=1 to n do
  begin
   mas[i,j]:=random(10);
   write(mas[i,j]:3);
  end;
 writeln;
end;
{максимальный эемент в каждой строке}
 
for i:=1 to n do
begin
max[i]:=mas[i,1];
 for j:=1 to n do
  begin
    if max[i] < mas[i,j] then
    max[i]:=mas[i,j];
  end;
end;
{минимальный элемент в каждом столбце}
for i:=1 to n do
begin
min[i]:=mas[1,i];
 for j:=1 to n do
  begin
    if min[i] > mas[j,i] then
    min[i]:=mas[j,i];
  end;
end;
{вывод}
for i:=1 to n do
  writeln('Максимальный элемент ',i,' строке: ',max[i]);
 
for i:=1 to n do
  writeln('Минимальный элемент в ',i,' столбце: ',min[i]);
 
 
readkey;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
23.01.2012, 01:50
Помогаю со студенческими работами здесь

Оператор выбора: по последней цифре числа определить последнюю цифру его квадрата
Помогите пожалуйста решить: Написать программу, позволяющую по последней цифре числа определить последнюю цифру его квадрата.

Дано целое число А. Определить, есть ли в данном числе цифра, которая равна цифре К
Помогите с решением пожалуйста 1. Дано целое число А. Определить, есть ли в данном числе цифра, которая равна цифре К. 2. Числа...

Ввести с клавиатуры трехзначное число и определить, равна ли сумма первой и последней цифры второй цифре.
Ввести с клавиатуры трехзначное число и определить, равна ли сумма первой и последней цифры второй цифре.

Найти все Трехзначные числа у которых первая и вторая цифра числа равна третьей
Помогите пожалуйста мне надо до завтра написать вот эти проги на паскале, а то завтра зачет а я не оч сильно шарю: 1)Найти все...

Дано натуральное число, определить равна ли первая цифра числа его последней цифре
Дано натуральное число.Определить равна ли первая цифра числа его последней цифре. как сделать в делфи? uses crt; var n,a:longint; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru