{Дано двузначное число. Определить: а) является ли сумма его цифр двузначным числом; б) больше ли числа а сумма его цифр} var n, s : byte; a:integer; begin writeln('введите двузначное число'); readln(n); {определение суммы цифр числа div - целая часть от деления, mod - остаток от деления} s:=n div 10 + n mod 10; writeln('сумма цмфр числ', n:5, 'равна',s:5); if s>9 then writeln('сумма цифр двузначное число', s) else writeln('сумма цифр не двузначное число', s);
writeln('введите число а'); readln(a); if s>a then writeln('сумма цифр', n,' больше ли числа ', a) else writeln('сумма цифр', n,' меньше числа ', a);
Идея следующая: 1.вводим год, месяц, день 2. проверяем, что год >=1900 и меньше 9999 при месяце меньшем 12 и год >=1900 и меньше 9998 при месяце равном 12. Если введенный год не удовлетворяет условию, то предлагаем ввести год заново до тех пор, пока условие не будет выполнено. Если введенный год удовлетворяет условию, то продолжаем проверку. 3. проверяем, что месяц от 1 до 12. При этом в переменную srav запомним максимальное число дней в введенном месяце с учётом високосного года. Если введенный месяц не удовлетворяет заданному условию, то предлагаем ввести месяц заново до тех пор, пока условие не будет выполнено. Если условие выполнено идём дальше. 4. проверяем, что день не превышает максимального числа дней (srav) в введенном месяце.Если день не удовлетворяет заданному условию, то предлагаем ввести день заново до тех пор, пока введенное значение не будет удовлетворять условию. Если условие выполнено, то продолжаем. 5. Выведем на экран введенную дату. 6. Вычисляем и выводим на экран следующий день за введенным, не забывая, что: - если введен день равный последнему дню месяца, то следующий день - это 1 число следующего месяца. - если введен последний день последнего месяца, то следующий день -это 1 число 1 месяца следующего года.
Программа на паскале.
3.
var
a, b, s : integer;
begin
Readln (a);
readln (b);
s:= a*b;
writeln ('площадь прямоугольника = ', s);
end.
4.
var
a, b ,c, s: integer;
begin
readln (c);
a:=c div 10;
b:= c mod 10;
s:= a + b;
writeln (s);
end.
5.
var
i,a, cmax: integer
begin
cmax:= -999;
for i:= 1 to 2 do
begin
readln (a);
if (a mod 2=0) and (a> сmax) then
cmax:= a;
End;
if cmax <> -999 then write (cmax)
Else write ('четные числа отсутствуют')
end.