S=740*60*80=3552000 символов
1. Если в кодировке 1 символ = 1 байт
V=3552000 байт ≈ 3,39 МБ
2. Если в кодировке UNICODE, то 1 символ = 2 байта
V=3552000*2 байт=7104000 байт ≈ 6,77 МБ
Var
x, n: integer;
begin
x := 1;
readln(n);
while x*x <= n do
begin
writeln(x);
x := x + 1;
end;
end.
Поскольку 10 = 5 х 2, то число, кратное 10, одновременно кратно и 5.
<em><u>Турбо Паскаль 7.01</u></em>
uses Crt;
var
n:longint;
begin
ClrScr;
Write('n='); Read(n);
if n mod 10=0 then Writeln('Число кратно 10 и 5')
else Writeln('Число не кратно 10 и 5');
ReadKey
end.
В то же время, возможно сам вопрос неверно поставлен, и подразумевается, что надо различать три случая: 1) число кратно только 5 2) число кратно 10, следовательно, и 5 3) число не кратно ни 5, ни 10. Но это уже проблемы автора вопроса.
1.
var
i,n:integer;
begin
read(n);
for i:=1 to n do
write(i,', ');
end.
2.
var
i,n:integer;
begin
n:=9;
for i:=1 to n do
writeln(i,'*',n,'=',n*i);
readln(i);
end.