Другие вопросы по теме Информатика
алисон2
26.02.2021 15:58
zakriev767
26.02.2021 15:59
Stasuyksuper06
26.02.2021 16:00
sumbaeva20161
03.10.2019 12:30
nastiasavchak11
03.10.2019 12:30
AnnaDor
03.10.2019 12:20
MrLeysanHD
03.10.2019 12:20
егор1481
03.10.2019 12:20
sashawinner13
03.10.2019 12:20
настячччч
24.06.2019 21:10
Популярные вопросы
- Найдите меньший корень уравнения 2x^2-x=0...
3 - Которую массу каменного угля нужно сжечь, чтобы получить такую же энергию,...
3 - Разность потенциалов между обкладками конденсатора с емкостью с = 100 нф равна...
3 - Используя алгоритм, определи, какие буквы гласных надо писать в оуончаниях...
3 - Пож решить 2 ) 1)точки а. b. с. принадлежат окружности радиуса 18 см. найдите...
1 - Место х подставить верное вещество. cr-х-cr(oh)2-crso4-cr. составить йонные...
3 - Загадки про: ослика, вовка, слона, мавпи, зайчика, лисиці, ведмідя ,щуки....
1 - Встоловой на приготовление щей и салата изросходовали 3 качана капусти. масса...
2 - 1. замените словосочетание озорно смотрел (предложение 12)построенное на основе...
1 - Детали проходят три операции обработки .вероятность получения брака на первой...
1
1 задача
var
a,b,c,d:integer;begin
read(a);
b:=a mod 10;
c:=a div 10;
d:=b*c;
writeln(d);
end.
2я задача
var
a,b,c,d,m,k:real;begin
read(a,b);
read(c,d);
k:=a-c;
m:=b-d;
if k<m then
writeln(k) else writeln(m);
end.