<h2>Программа написана и протестирована на языке PascalABC.NET</h2>
- var
- A, B, C: real;
- e, f: real;
- begin
- Readln(A, B, C);
- Readln(e, f);
-
- if (A >= e) and (A <= f) then Writeln(A);
- if (B >= e) and (B <= f) then Writeln(B);
- if (C >= e) and (C <= f) then Writeln(C);
- end.
Для увеличения картинки нажмите на лупу (расположена на фотографии) либо откройте фотографию в новой вкладке.
1)162*44*60=427680(символов)
2)427680*8=3421440(бит)=427680(байт)=417,6(Кбайт)-нужно для размещения информационного сообщения
Ответ:нет,не достаточно
Var a,s:integer;
begin
Randomize;
a:=random(21)-10;
writeln(a);
s:=0;
while a<>0 do
begin
s:=s+a;
a:=random(21)-10;
writeln(a);
end;
write('s = ',s);
end.
Пример:
-6
6
10
7
-10
-8
-9
0
s = -10
Алгоритм:
1. присвоить значение х, д
2. вычислить 5х-37
3. у= 5х-37 значение поместить в ячейку
4. задать х=х+д
5 перейти к пункту 2
3 6 19 6 15 15 10 11
5 16 8 5 30
18 1 19 20 10 20,
16 19 6 15 15 10 11
4 15 16 10 20.