Var
a, b, t: integer;
begin
readln(a, b);
if b > a then begin
t := a;
a := b;
b := t;
end;
writeln(a mod b = 0);
end.
Program kod; Var q,w,e,r,t,y,u,i,x:integer; Begin write(q,w,e,r,t,y,u,i); if q:=1 then x+(1*2*2*2*2*2*2*2); if q:=0 then x+0; i
Mais
:= означает "присвоить значение".
После if пишется логическое выражение, например, х>0 или х=0 (но не х:=).
После служебного слово then должен следовать оператор присваивания (:=), скорее всего х:=x+(1*2*2*2*2*2*2*2) и т.д.
Ответ:
использовать Чертежник
алг
нач
цел й,ц
нц для й от 1 до 2
нц для ц от 1 до 4
опустить перо
сместиться на вектор (0,ц)
сместиться на вектор (ц,0)
сместиться на вектор (0,-ц)
сместиться на вектор (-ц,0)
поднять перо
сместиться на вектор (ц+1,0)
кц
сместиться в точку (0,-5)
кц
кон
Объяснение:
Смотри картинку
Var
i,n,s:integer;
begin
Write('n=');
Readln(n);
s:=0;
for i:=20 to n do
if Odd(i) then s:=s+i;
Writeln('Сумма с for = ',s);
s:=0; i:=21;
while i<=n do
begin
s:=s+i;
i:=i+2
end;
Writeln('Сумма с while = ',s)
end.
<span>Вычисления функций ⇒ ( ) [] . -> ⇒ * & ! ~ ++ -- sizeof ⇒ * /
% ⇒ + – ⇒ >> << ⇒ < > <= >= == != ⇒ & ⇒ ^ ⇒ | ⇒ && ⇒ || ⇒ ?: ⇒ =+ =- =* =/ =% =>> =<< =& =^ =| =
⇒</span>