1. Простые операторы

1. Для двух данных чисел найти среднее арифметическое и среднее геометрическое модулей этих чисел.

var a,s,x,y:real;

Begin

writeln('vvedite 2 chisla');

read(a,s);

x:=(a+s)/2;

y:=a*s/2;

writeln(x,y);

readln;

end.

Машинный

Счет.

Ручной счет.

Берем два числа 5 и 2 находим ср арефм. и ср геометр

Арефмет (5+2)/2=3,5 Геометрич 5*2/2=5

2. Для данного числа А, не пользуясь никакими арифметическими операциями, кроме умножения, получить А⁸за три операции и А¹⁰, А¹⁶, за четыре операции.

var a,x,y,z,w,e:real;

begin

write('vvedite A');

read(a);

x:=a*a;

y:=x*x;

z:=y*y;

w:=z*a*a;

e:=z*z;

writeln(z,' a_v_stepeni_8');

writeln(w,' a_v_stepeni_10');

writeln(e,' a_v_stepeni_16');

readln(x);

end.

3.Мальчик купил несколько тетрадей по 100 рублей и несколько обложек по 50 рублей. Составить программу, которая могла бы подсчитать стоимость всей покупки.

var a,s,d:byte;

begin

writeln('vvedite kolichestvo tetradeyi i obloghek');

read(a,s);

d:=(a*100)+(s*50);

writeln(d);

readln(d);

end.

Машинный счет

Ручной счет

(6*100)+(7*50)=950

4. Даны две целые переменные A,B. Составить фрагмент программы, после исполнения которого, значения переменных поменялись бы местами (новое значениеAравно старому значениюBи наоборот), не используя дополнительных переменных.

var A,B,C:integer;

begin

writeln('vvedite dve peremennie');

read(A,B);

C:=A;

A:=B;

B:=C;

writeln(A,B);

readln(A);

end.

2 Условный оператор If

1. Определить является ли данное целое число R четным. Дать словесный ответ

var a,x:integer;

begin

writeln('vvedite chislo');

read(a);

x:=a;

if x mod 2 = 0 then writeln('chetnoe') else writeln('nechetnoe');

end.

Машинный счет.

Ручной счет

9/2=3-нечет

8/2=4-четное

2.Дано целое положительное число N(10<=N<=99). Выяснить, верно ли, чтоNравно кубу суммы цифр числаN.

var a,b,c,d:byte;

begin

writeln('vvedite chislo ot 10 do 99');

readln(a);

if (a>=10) or (a<=99) then

begin

b:=a div 10;

c:=a mod 10;

d:=(c+b)*(c+b)*(c+b);

if d=a then writeln('chislo ravno kubu summi chisel')

else writeln('chislo ne ravno kubu summi chisel');

end;

else writeln('ne vernoe chislo');

end.

Машинный счет.

Ручной счет.

5+5=10

10^3=1000

1000≠55

3.Заданы три числа X, Y, Z. Найти min(XYZ, X+Y+Z).

Program P8;

var

x,y,z,K,S:integer;

begin

writeln('vvedite x,y,z');

readln(x,y,z);

K:=X*Y*Z;

S:=X+Y+Z;

If K>S then write(S)

else if K=S then write(K);

readln;

end.

Ручной счет5+6+7=18

5*6*7=210

18<210

4.Даны три целых числа. Выбрать из них те, которые принадлежат интервалу [1,3].

var a,s,d:integer;

begin

writeln('vvedite chisla');

readln(a,s,d);

if (a>=1) and (a<=3) then writeln(a) ;

if (s>=1) and (s<=3) then writeln(s) ;

if (d>=1) and (d<=3) then writeln(d);

end.

Машинный счет.

Ручной счет.

1=1 подходит

5>1 5>3 – не подходит

2>1 2<3 подходит

В интервал входят числа 1 и 2.

5.Дано целое положительное число N(N<=1000). Определить сколько цифр в этом числе.

var a:word;

begin

writeln('vvedite chislo ot 1 do 1000');

read(a);

if (a>=1) and (a<=1000) then

begin

if a=1000 then writeln(4);

if (a>=100) and (a<1000) then writeln(3);

if (a>=10) and (a<100) then writeln(2);

if (a>=1) and (a<10) then writeln(1);

end

else writeln('ne vernoe chslo');

end.

Машинный счет

Ручной счет.

1=1 и 1<10 => в числе одна цифра

6.Вычислить max(min(a,b),max(c,d)).

var min,max,a,b,c,d:real;

begin

writeln('VVEDITE 4 CHISLA');

read(a,b,c,d);

if a>b then min:=b else min:=a;

if c>d then max:=c else max:=d;

if min>max then writeln(min) else writeln(max);

end.

Машинный счет.

Ручной счет.

Найти минимальное из двух чисел 5 и 4.

5>4 => 4 min