Ответы на вопрос:
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.
Популярно: Информатика
-
Polina847209.08.2022 07:05
-
elinochek117.06.2020 14:52
-
stiles199621.09.2022 05:43
-
born38011121.05.2021 19:44
-
алхожа04.10.2022 20:39
-
Diana2285526.09.2022 08:37
-
online1925.01.2022 09:41
-
Gosha2222888819.11.2021 11:04
-
aibarealmadrid23.01.2020 09:34
-
danilgranin2023.12.2022 04:58