<span>var
s : string[50];
i, j, k : word;
f : boolean;
function isSpace(ch : char) : boolean;
begin
isSpace := false;
if ch = ' ' then isSpace := true;
end;
begin
f := false;
repeat
j := 0;
writeln('введите строку, состоящую из 2 слов');
readln(s);
for i := 1 to length(s) do
if isSpace(s[i]) then
begin
inc(j);
k := i;
end;
if j =1 then f := true;
until f;
write(copy(s, k + 1, length(s)), ' ', copy(s, 1, k - 1));
<span>end.
недавно такую писала :)</span></span>
Var
a, b, c : integer;
begin
write("Введите 1 целое число: ");
readln(a);
write("Введите 2 целое число: ");
readln(b);
c = a + b;
writeln("Сумма равна: ", c);
end.
600*1024=614400 кбайт- объем диска
614400/500 = 1228.8 кол-во фотографий, округляем в меньшую сторону так как куска фотки быть не может = 1228
1228*6 = 7368 с = 2.04666666666 часа уйдет времени на просмотр
Ответ: 7368 с
Нужно вставить оператор - while,паскаль точно не помню,но вроде бы ещё for
//Pascal
var
factorial: longint;
n, i: byte;
begin
write('n = '); readln(n);
factorial := 1;
for i:=2 to n do
factorial := factorial * i;
writeln('n! = ', factorial);
end.