Ответы на вопрос:
Var a,b: integer; begin readln(a); readln(b); writeln(2*(a+b)*(a+b)); readln; end.
Var a: array[1..25] of word; i,s: longint; begin writeln('vvedit ves uchenika'); for i: =1 to 25 do read(a[i]); for i: =1 to 25 do if a[i]< 30 then s: =s+0.2; //так как ответ в литрах writeln(s); readln; end.
Популярно: Информатика
-
12095494392105.12.2021 04:29
-
xAlonerx18.04.2022 08:40
-
nikitana199504.10.2020 12:47
-
dilinur1516.02.2022 21:42
-
dennikitos31.07.2020 19:17
-
samgrachev22.11.2020 21:46
-
Ізабель21.08.2020 04:36
-
Mesnikfff11.05.2022 04:19
-
Annaaa6387915.01.2023 04:53
-
КарКарыч666621.11.2021 14:31