Var
S: string;
i: byte;
tmp: boolean;
begin
write('Введите строку: '); readln(S);
for i := 1 to Length(S) do
begin
if ((S[i] = '*') and (tmp = false)) then
begin
S[i] := '-';
tmp := true;
end;
if tmp = true then S[i] := '-';
end;
writeln(S);
end.
Насколько знаю, они все относятся к манипуляторам
Windows (3.x, 95, 98, Me, 2000, XP(Pro, Home, MCE), 2003 Server, Vista), Windows Mobile Mac OS ( знаю мало, но юзал Tiger, Pantera) Unix (Linux, OpenBSD, Inferno, Fedora, Mandriva и т. т. д. ) Sun Solaris Symbian
Никогда, никогда не составляйте программу для тех задач, которые можно решить математически!
У нас первое число 5, последнее 50, количество чисел 50/5 = 10.
Имеем сумму арифметической прогрессии:
(5 + 50)/2 * 10 = 275.
Ответ: 275.
Ответ:
ответ 3
Объяснение:
в одном байте 8 бит значит 4*8=32бит