Ответ:
Объяснение:
Var a,b,x,k,j : Integer;
Begin
Read (a);
Read(b);
Read(x);
While x<>0 do
Begin
If x mod 10=a then k:=k+1;
If x mod 10=b then j:=j+1;
X:=x div 10;
End;
If k=j then WriteLn('одинаковое количество ');
If k>j then WriteLn(символов а больше)
Else
WriteLn (символов b больше)
1)(линейный) посадить дерево - выкапал яму, положил сажанец, завалил яму, полил
2) перед выходном на улицу одеться по пагоде. - холодно куртку, жарко плавки
3) кушаешь кашу - зачерпнул каши положил в рот так пока не закончится
If x>y then begin writeln ('Не попал! Число больше!');goto m; end;
<span>if x<y then begin writeln('Не попал! Число меньше');goto m; end;</span>
Program plochad;var a,c:real;beginwriteln ('Введи длину стороны a=');readln (a);if a < 0 then writeln ('Число не может быть отрицательным! Введите другое число.');writeln ('Введи длину основания c=');readln (c);if c < 0 then writeln ('Число не может быть отрицательным! Введите другое число.');c:= a*c/2;if c<0 then write ('Невозможно решить') else writeln ('S=',c);end.