Определить, состоит ли двузначное число, введенное с клавиатуры, из одинаковых цифр? (напишите код Паскаль)
10-11 класс
|
var a: integer;
begin
write('Введите число: '); read(a);
if((a div 10) = (a mod 10)) then writeln('Цифры одинаковые')
else writeln('Цифры не одинаковые');
end.
Продам комплект качественные ( профессиональные) горные лыжи 120 см, палки, горнолыжные ботинки LANGE TIME PRO (профессиональные) размер 22.5 Российский размер примерно 34.5,-35.5 использовались немного. Ботинки лыжи и палки сделаны в Европе, а не в КИТАЕ. Комплект окупится меньше чем за сезон и ни каких очередей. Шлем пр-во италия. Весь комплект лыжи с креплениями, ботинки, палки. шлем по цене всего 15000 руб.
Другие вопросы из категории
(Приложение, №2), построить круговую диаграмму, отражающую затраты на посадочный материал ягодных культур - крыжовника, земляники, малины и черной смородины...
Затраты на посадку 1 га садов и ягодников в центральных областях России в 1980 г.
program sbb;
uses crt;
var
i,j,s:integer;
a:array[1..5,1..10] of integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 10 do
begin
random(50);
a[i,j]:=random(50);
write(' ');
write(a[i,j]);
end;
writeln
end;
поверхности, суммы ребер прямоугольного параллелепипеда.
2. Найти все двузначные числа, сумма квадратов которых делится на 17.
Всё это нужно сделать в программе Паскаль, но КАК?!
технологии и их применение на практике" 11 класс (пожалуйста, хорошая работа нужна)
Читайте также
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
число и определить, какие цифры встречаются несколько раз (через repeat и until)///
ввести целое число и найти сумму его цифр (через while)
ввести целое число и определить , верно ли, что в его записи есть две одинаковые цифры(через while)
всё через паскаль абс
234 равна 10. Задача: сумма цифр ввести целое число и определить верно ли, что в его записи есть 2 одинаковые цифры. Пример: введите целое число 1234 нет введите целое число 1224 да