19 нужно уже сегодня только 2,4 программа 19.4: program ypr; var n,k: integer; var a: real; begin write('количество k ='); read(k); for n : = 1 to k do begin a: =2*n; write(a, ' '); end; end.
255
419
Ответы на вопрос:
// pascalabc.net 3.3, сборка 1547 от 07.10.2017 // внимание! если программа не работает, обновите версию! begin var x: =readreal('x='); seq(x+5,sin(x),x*x).orderby(x-> x).println end. примеры x= 0.7 0.49 0.644217687237691 5.7 x= -1.4 -0.98544972998846 1.96 3.6
Популярно: Информатика
-
marina8marta07.04.2021 22:03
-
Semensem18.03.2021 21:49
-
daryatitova128.04.2022 10:42
-
thebrofee25.01.2022 02:00
-
Дианочка14005.01.2021 01:29
-
Aleksiy6902.08.2021 15:04
-
anzelinskaalera30.07.2022 20:38
-
Dan99pro06.01.2022 02:45
-
tiamaressp035gw21.07.2022 06:39
-
Mаjоr21.08.2020 11:05