Написать в Паскале (или в тетради) программы к заданиям. Использовать в цикле только оператор While.
«3»: Вывести на экран в столбик 12 раз слово «Весна».
«4»:Ввести натуральное число N и вывести кубы всех чисел от 1 до этого числа.
«5»: Ввести два целых числа a и b (a ≤ b) и вывести квадраты всех чисел от a до b.
Пример:
Введите два числа:
4 5
4*4=16
5*5=25
ersultanplay
3
19.05.2020 06:54
1
Другие вопросы по теме Информатика
flanyshkatop
12.03.2021 11:09
nbuiluk
09.12.2020 00:50
Секретик321321
09.12.2020 00:50
Barkinhoev06isl
09.12.2020 00:51
Карейка0167
09.12.2020 00:53
федот228
09.12.2020 00:53
Татьяна45512
28.12.2020 15:19
MiSTiK338
28.12.2020 15:18
ElenaOlegovna26
28.12.2020 15:16
Лизик2007
07.09.2019 21:31
Популярные вопросы
- Заполните таблицу, если величина y прямо пропорциональна величине x ...
2 - Расстояние между посёлками а и б – 40 км. из посёлка а выеу.легковой автомобиль...
1 - На светофоре стоит 15 машин, 3/5 из них легковые машины, остальные машины- грузовые.сколько...
2 - Расскажите о создании первого свода законов в правды ...
3 - 50 , ауput these words in the correct order1. speak/ or/ slowly/ fast/ does/ harry?...
3 - Example: 1. we ) grandparents last week. 2. they (work) here for five years. example...
1 - Сен мусиндер бейнеленген фотосуреттерди альбомдарга орналастыруын керек.тапсырманы...
1 - Чем заканчивается любовь и ненависть...
1 - Нужна 5ка кто владеет , ответить на 3 вопроса развёрнута(на каждый вопрос по 5-6...
2 - Put these words in the correct order1. speak/ or/ slowly/ fast/ does/ harry? 2....
1
3)
var
a:integer;
begin
a:=0;
while a<12 do
begin
writeln ('Весна');
a:=a+1;
end;
end.
4)
var
a,n:integer;
begin
readln(n);
a:=1;
while a<n+1 do
begin
writeln (a*a*a);
a:=a+1;
end;
end.
5)
var
a,b:integer;
begin
readln(a,b);
while a<b+1 do
begin
writeln (a,'*',a,'=',sqr(a));
a:=a+1;
end;
end.