1) Сколько всего ГБ зашифрует вирусы под отдельности?
A : 1 Гбайт
B : 1\2 Гбайт
С : 1\3 Гбайт
Д : 1\6 Гбайт
2) Найдём сумму
1 + 1\2 + 1\3 + 1\6 = (6 + 3 + 2 + 1)\6 = 2 Гбайт
сравниваешь первую и вторую цифры
затем вторую и третью
затем первую и третью
если есть одинаковые то ДА
если нет то НЕТ
Не Паскаль!!!!
В первой задаче после выполнения программы переменная P будет равна 24.
Во второй задаче переменная S будет равна 12.
В третьей задача переменная S будет равна 41.
В четвёртой задаче переменная c будет равна 9.
В пятой задаче переменные x и t будут равны 5, а переменная y = 11.
Удивляюсь иногда, как много можно узнать нового, помогая тут!:)
Var x, y, count, s: integer;
begin
repeat
if(y = 100) then break;
readln(x);
if(abs(x) > 300) then begin
writeln('<span>Число по модулю не может быть > 300</span>.');
continue
end
else
if(x mod 4 = 0) and (x <> 0) then begin
inc(count);
s := s + x;
end;if(x <> 0) then inc(y);
until(x = 0);
writeln('Среднее арифметическое: ', s / count);
end.