На сравнении программных кодов с известными вирусами.
Program q;
var a:integer;
begin
write('Сторона: ');
read(a);
a:=a*a;
writeln('Площадь равна: ',a);
end.
Var rost :array[1..100] of integer;
n, i, k: integer;
begin
writeln('Введите общее количество участников');
readln(n);
for i:=1 to n do
read(rost[i]);
for i:=1 to n do
if (rost[i] >=180) then Inc(k);
writeln(k);
<span>end.
Пример входных данных
3
179 180 194<span>
Выходные данные
2</span></span>
var a:string;
begin
write('введите букву');
readln(a);
case a of
'L':write('L=2*pi*r'); // формула длинны окружности
'S':write('S=pi*r*r); // формула площади круга
'V':write('V'=pi*r*r*h); // формула объёма цилиндра
else write(''буква должна быть L, S или V);
end;
end.
если формула гдето неверная то сори