Вывести таблицу из квадратов чисел от 0 до 1 с шагом 0.1. ответ на языке pascal
рррр194
2
12.09.2019 16:10
10
Другие вопросы по теме Информатика
umidmadrimow580
14.01.2021 07:11
gulyaaxundova
14.01.2021 07:04
leracert1
20.01.2022 20:17
12389p
20.01.2022 20:07
khezh073
08.12.2021 15:17
kirllakylov
08.12.2021 15:17
stasbrega
08.12.2021 15:17
12575
08.12.2021 15:17
олькаlove1
08.12.2021 15:20
Популярные вопросы
- 1)какие изменение в науке и технике произошли в 20 веке 2)какие народные промыслы...
2 - Периметр равнобедренного треугольника равен 38 см. какими могут быть стороны...
1 - Рассказать про кровеносные сосуды и сердце. , в учебнике этого нет....
3 - Какие числа надо вписать в окошки, чтобы равенство стало верным? запишите в ответ...
3 - Розташуйте народи у тій послідовності як вони приймали христианства а)русичів...
2 - Разложите на множители многочлен y^2+4y+3...
2 - Произведения с проблемой воспитания....
1 - Напишите сочинение 7 -10 предложений о любимой настольной игре (легкая) с переводом....
1 - Докажите: (почему книгу называют другом ? )соблюдая такой порядок: 1) тезис 2)доказательства(аргументы)3)вывод...
2 - Умножьте дробь на натуральное число 5/7×3 3/8×16 2/3×12 3/5×15...
1
begin
c:=0;i:=0;
while i<1 do begin
c:=i^2;
i:=i+0,1;
writeln('Квадрат числа',i,'=',c);
end;
readln;
end.
var i: real;
begin
while i < 1 do
begin
writeln(i:0:1, ' в квадрате = ', sqr(i):0:2);
i := i + 0.1;
end;
readln;
end.