составить блок схему и программу площади квадратов со стороной, меняющейся от 2 до 4 см с шагом на 3 мм.
10-11 класс
|
var a: real;
i: integer;
begin
a := 2;
while (a <= 4) do
begin
writeln(a, 'cm => ', a * a, 'cm2');
a := a + 0.3;
end;
end.
Другие вопросы из категории
(укажите несколько правильных ответов)
1) сжатие файлов, внутренними кодеками операционной системы
2) сжатие файлов внешними архиваторами
3) сжатие всего файла или его части из прикладной программы в фоновом режиме
4) архивирование группы файлов как одного архива
5) архивирование отдельно каждого файла группы с сохранением результатов в одном архиве
1) локальный модем
2) сетевой адаптер
3) адаптер-модем
4) локальный адаптер
5) сетевой модем
1)3.14159 5)16. 9) 12.SE.3
2)150 6)15.0Е-04 10) 12Е+5
3)0,005 7)2.345Е2 11) Л23ЕЗ
4).12345 8) 1.15Е-3 12) 1.15Е-3
Uses crt;
Const N=20;
Var a:array [1..N] of integer; i:integer;
Begin
clrscr;
randomize;
for i:=1 to N do a:=random(100);
Redln(a);
Writeln('Элементы масива:',a);
End.
Читайте также
квадраты со стороной, равной 425-131*3=32, и т.д. На какие квадраты и в каком их количестве будет разрезан исходный прямоугольник?
2. Составьте программу, определяющую, является ли данное число делителем числа 3.
3*. Составьте программу, заменяющую из двух данных чисел меньшее число суммой, а большее – произведением этих чисел.
2)построить блок схему которая меняет порядок цифр числа на обратный. например было 12345,стало 54321.
стороной 141, пока это возможно. Затем вновь отрезают квадраты со стороной,
равной 324-2*141=42 и т.д. На какие квадраты и насколько будет разделен прямоугольник?
Решение программы в Pascal ABC