Var n:integer;
begin
writeln('n=');
readln(n);
case n of
3,4,5:writeln('Весна');
6,7,8:writeln('Лето');
9,10,11:writeln('Осень');
1,2,12:writeln('Зима');
end;
<span>end.</span>
Var a,b: real; s: byte;
Begin
Writeln ('введите два числа');
Readln (a,b);
S:=0;
If (a mod 2)=1 then writeln (a,' - нечетное число') else s:=s+1;
If (b mod 2)=1 then writeln (b,' - нечетное число) else s:=s+1;
If s=2 then writeln ('оба числа четные')
End.
Как то так=) думаю в обозначениях разберешься=)
Ответ:
v - eto plus
^ - eto umnojeniye
(1^1)^(1v0)= 1 umnojit na 1 umnojit na 1 + 0 = 1
Prt Sc клавиша.
Потом просто вставляешь картинку