Program raznost;
var a,b,c,r: integer;
begin
writeln ('Введите трехзначное число');
readln (a);
b:=a div 100;
c:=a mod 10;
if b>c then r:=b-c
else
if b<c then r:=c-b;
writeln ('Разность крайних цифр равна ',r);
end.
Обозначи кол-во цветков, распустившихся ПОЗАВЧЕРА за X, ВЧЕРА - за (X - 11) (по условию). ВЧЕРА распустилось на 11 цветков меньше, чем ПОЗАВЧЕРА и на 32 меньше, чем СЕГОДНЯ и ПОЗАВЧЕРА вместе.Подставим x=12 (>11) - цветков ВЧЕРА, значит 12-11=1 - цветков завтра. Цветков СЕГОДНЯ находим так: 32 (дано) - 11 (дано) = 21.
Ответ:
Позавчера - 12 цветков.
Вчера- 1 (12 - 11 = 12+ 21 - 32) цветок.
Сегодня - 21 цветок.
Var a,k:integer;
begin
write('a (>0) = ');
readln(a);
k:=0;
while a>0 do
begin
k:=k+1;
a:=a div 10;
end;
writeln('k = ',k);
end.
Пример:
<span>a (>0) = 180653
k = 6</span>
1) Пробелы ставятся после знаков препинания;
2) Знаки препинания ставятся сразу после слова - без пробела;
3) Дефис не обрамляется пробелами например: из-за
4) Тире обязательно обрамляется пробелами, например: Информатика - это...
5) Клавиша Enter нажимается в конце абзаца, а не в конце строки;
6) В тексте везде можно использовать только один пробел подряд;
и т.д.
Есть и еще правила конечно, но это пока все, что я вспомнил...
a) - фильмы
б) - отрезки (не замкнутые)
в) - цыфры,буквы и тому подобное.
