Авсей 26 ноября 2019 в 06:03
( Самостоятельная работа Операторы цикла программ : 1. хитрая выводит на экран все целые числа от 1 до 20 ( в порядке возрастания 2. которая выводит на экран все целые нечетные числа от 1 до 19 ( в порядке 3. которая выводит на экран все целые числа от 20 до 5 ( в порядке убывания 4. выводит на экран значения функции для всех целых х нарезку 5. шпорах выводит на экран значения функции для всех целых х отрезку и изменяющихся с интервалом 0,5 0. которая выводит на экран все целые числа от 1 до 10. Квадраты этих чисел и кубы зги чисел в следующем виде 1 1 1 2 4 8 3 9 2 7 4 16 64
( Самостоятельная работа Операторы цикла программ : 1. хитрая выводит на экран все целые числа от 1 до 20 ( в порядке возрастания 2. которая выводит на экран все целые нечетные числа от 1 до 19 ( в порядке 3. которая выводит на экран все целые числа от 20 до 5 ( в порядке убывания 4. выводит на экран значения функции для всех целых х нарезку 5. шпорах выводит на экран значения функции для всех целых х отрезку и изменяющихся с интервалом 0,5 0. которая выводит на экран все целые числа от 1 до 10. Квадраты этих чисел и кубы зги чисел в следующем виде 1 1 1 2 4 8 3 9 2 7 4 16 64
Первая задача
var i:integer;beginfor i:=1 to 20 do write(i, );end.
Вторая задача
var i:integer;beginfor i:=1 to 19 do if (i mod 2)=1 then write(i, );end.
Третья задача
var i:integer;beginfor i:=20 downto 5 do write(i, );end.
Четвертая задача
var i:integer;beginfor i:=-5 to 5 do write(i*i, );end.
Пятая задача
var i:real;begini:=-3;while ilt;=3 do begin write(i*i, ); i:=i+0.5; end;end.
Шестая задача
var i:integer;beginfor i:=1 to 10 do writeln(i, ,i*i, ,i*i*i);end.
var i:integer;beginfor i:=1 to 20 do write(i, );end.
Вторая задача
var i:integer;beginfor i:=1 to 19 do if (i mod 2)=1 then write(i, );end.
Третья задача
var i:integer;beginfor i:=20 downto 5 do write(i, );end.
Четвертая задача
var i:integer;beginfor i:=-5 to 5 do write(i*i, );end.
Пятая задача
var i:real;begini:=-3;while ilt;=3 do begin write(i*i, ); i:=i+0.5; end;end.
Шестая задача
var i:integer;beginfor i:=1 to 10 do writeln(i, ,i*i, ,i*i*i);end.
Компьютеры и вычисления
430
0
Для комментирования необходимо зарегистрироваться на сайте