Var f1,f2:text;
a,b,t,t1:integer;
begin
assign(f1,'input.txt');
reset(f1);
assign(f2,'output.txt');
rewrite(f2);
readln(f1,a,b,t);
t1:= t mod (2*a+2*b);
if (t1>=0)and(t1<a) then writeln(f2,'S')
else if (t1>=a)and(t1<a+b) then writeln(f2,'E')
else if (t1>=a+b)and(t1<2*a+b) then writeln(f2,'N')
else writeln(f2,'W');
close(f1); close(f2);
end.
Команда умножить на 3 в данном случае бессмыслена,так как 8*3=24,получается есть только одна программа -8 +2 +2 +2 +2 +2=18
Program Summa;
var s,i,n:integer;
begin
write('Введите n:' );
readln(n);
s:=0;
for i:=1 to n do
if (i mod 2)<>0 then s:=s+i;
writeln;
writeln('Сумма нечётных чисел равна:',s);
readln; {для паузы}
end.
var x,N : integer;
begin
x:= N;
while(N > 0) do
begin
if( N mod 10 >= 2) then begin
writeln('Не двоичное число');
break;
end;
N := N div 10;
end;
writeln(x);
end.