1. var a:integer; begin write('Введите число: '); readln(a); if a>0 then a:=a-10 else a:=a+10; writeln('a = ',a); end.
Пример: Введите число: 5 a = -5
2. var a,b,p:integer; begin writeln('Введите два числа: '); readln(a,b); if a*b<0 then p:=-2*a*b else p:=3*a*b; writeln('p = ',p); end.
Пример: Введите два числа: -3 -8 p = 72
3. var a,b,r:integer; begin writeln('Введите два числа: '); readln(a,b); if a>b then r:=a-b else r:=b-a; writeln('r = ',r); end.
Пример: Введите два числа: 25 48 r = 23
4. var r:integer; begin writeln('Введите рост: '); readln(r); if r>180 then writeln('высокий') else if r=180 then writeln('нормальный') else writeln('низкий'); end.
program pediatr; var h_old, h_new, w_old, w_new: integer; begin write('введите рост ребёнка месяц назад (в см): '); readln(h_old); write('введите рост ребёнка сейчас (в см): '); readln(h_new); write('введите вес ребёнка месяц назад (в г): '); readln(w_old); write('введите рост ребёнка сейчас (в г): '); readln(w_new); if ( (h_new - h_old) >= 3 ) and ( (w_new - w_old) >= 700) then writeln('Ваш ребёнок развивается хорошо') else writeln('Ваш ребёнок меньше нормы'); end.
Объяснение:
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 больше)