Program Help;
Var i : Word;
Begin
(* 1 способ *)
For i := 100 to 999 do
If (i mod 6 = 0) and (i mod 4 = 0) and (i mod 10 = 8) then
Writeln(i);
Writeln;
(* 2 способ *)
i := 100;
While i < 999 do
Begin
If (i mod 6 = 0) and (i mod 4 = 0) and (i mod 10 = 8) then
Writeln(i);
i := i + 1;
End;
Writeln;
(* 3 способ *)
i := 100;
Repeat
If (i mod 6 = 0) and (i mod 4 = 0) and (i mod 10 = 8) then
Writeln(i);
i := i + 1;
Until i = 999;
Readln;
End.
Нужно, конечно, изображение кроссворда (или количество букв в словах).
По горизонтали:
1. редактирование
2. фрагмент (блок)
3. шрифт
4. форматирование
5. процессор
6. документ
7. выравнивание
8. центрирование
9. копирование
10. прямоугольник
Program dsdasd;
var i,y: integer;
begin
y:=0;
For i:=-100 to 100 do
if i mod 10=5 then y:=y+i;
Writeln(y);
<span>end.
у будет равен 500. Считается он так: из чисел -100,-99,-98...98,99,100 остаток 5 при делении на 10 получается у чисел:
5, 15....75,85,95, то есть нужно эти 10 чисел сложить.</span>
256=2⁸, следовательно символ занимает 8 бит = 1 байт
Длина строки 33·1 = 33 байта, страницы 28×33 = 924 байта, файла - 12×924 = 11088 байт = 11088/1024 ≈ 10.83 Кбайта