For A = 1 To 10
If A mod 2 <> 0 Then
Print A * A
End if
Next A
<span>-----------------------------------Исполнитель----------------------------</span>
Var a, b, c, d, i : integer;
Begin
read(a);
read(b);
read(c);
read(d);
for i := a to b do
if (i mod c = d) then
writeln(i);
writeln();
for i := a to b do
if frac(sqrt(i)) = 0 then
writeln(i);
writeln();
for i := 2 to a-1 do
if a mod i = 0 then begin
writeln(i);
exit;
end;
End.
Здравствуйте.
Если все , то напишу. Читайте.
1. Школа - Директор - Канцелярия (вроде)
Компьютер - Системный блок -Монитор
Государство - Президент - Дума
Солнечная система - Планеты - Солнце
Человек - Мозг - ?
Я не очень помню , простите..
2. Библиотека - смешанная система
Болото - природная система
самолет - техническая система
Вулкан - техническая система
оркестр - смешанная система
степь - природная система
система счисления - техническая система
3. Не помню дальше. Используем Gdз от Путина или другой источник.