название программы начинается с __ незнаю в чем компилируешь, может ругаться.
убери лишние begin end в условиях, они не нужны там
после readln
if ... then ... else END;
после каждого else if начинается, не нужны begin end, у тебя одно условие там. и одно действие
Word - Абзац - Отступы и интервалы - Интервал
<span>Kaspersky Antivirus, Norton AntiVirus, Doctor Web.
</span><span>Своевременное обнаружение зараженных вирусами файлов и дисков, полное уничтожение обнаруженных вирусов на каждом компьютере позволяют избежать распространения вирусной эпидемии на другие компьютеры.
</span>Для обнаружения, удаления и защиты от компьютерных вирусов разработано несколько видов специальных программ, которые позволяют обнаруживать и уничтожать вирусы. Такие программы называются антивирусными<span>. Различают следующие виды </span><span>антивирусных программ</span>
Делал на ABC Pascal:
program qq;
uses crt;
var n:integer;
begin
clrscr;
writeln ('Введите число: ');
readln (n);
if not (n mod 2=0) and (n>10) and (n<20)
then
begin
n:=n*n;
writeln ('Квадрат этого числа равен: ',n);
end
else
writeln ('Число не подходит условию задачи');
readkey;
end.
S=10v1=15v2
v1=1.5v2
t=S/(v1+v2)=15v2/(2.5v2)=6
6 дней