<em><u>Задание №1</u></em>
var
x:integer;
begin
for x:=5 to 15 do Writeln('x=',x:2,' y=',2*x)
end.
<em><u>Результат выполнения программы:</u></em>
x= 5 y=10
x= 6 y=12
x= 7 y=14
x= 8 y=16
x= 9 y=18
x=10 y=20
x=11 y=22
x=12 y=24
x=13 y=26
x=14 y=28
x=15 y=30
<em><u>Задание №2</u></em>
var
x:real;
begin
x:=1;
while x<=2 do begin
Writeln('x=',x:4:1,' y=',sin(3*x):8:5);
x:=x+0.3
end
end.
<em><u>Результат выполнения программы:</u></em>
x= 1.0 y= 0.14112
x= 1.3 y=-0.68777
x= 1.6 y=-0.99616
x= 1.9 y=-0.55069
<em><u>Задание №3</u></em>
const
n=40;
var
i:integer;
a:real;
begin
for i:=1 to n do
begin Write('a',i,'='); Read(a); Writeln('S=',sqr(a)) end
end.
<em><u>Фрагмент работы программы:</u></em>
a1=2.6
S=6.76
a2=4.18
S=17.4724
a3=1
S=1
a4=17
S=289
a5=
Var a:real;
begin
readln(a);
if a=0 then writeln('Корней нет')
else writeln('x = ',5/a:4:2);
end.
Пример:
4
<span>x = 1.25</span>
л ) наливаем 3 литра в кувшин.
2) переливаем 3 л в кувшин 5 л.
3) снова наливаем 3 л в кувшин.
4) переливаем 2 л из кувшин 3 л в кувшин 5 л. В кувшине 3 л остался 1 л.
5) из кувшина 5 л переливаем 5 л в кувшин 8 л. Там стало 7 л.
6) переливаем 1 л из кувшина 3 л в кувшин 5 л.
7) из кувшина 8 л наливаем 3 л.
В кувшине 8 л осталось 4 л, в кувшине 3 л стало 3 л, в кувшине 5 л стал 1 л.
8) Из кувшина 3 л выливаем 3 л в кувшин 5 л.
В кувшине 8 л осталось 4 л, в кувшине 5 л тоже стало 4 л.
Всё!
110
х 101
------------
110
+ 110
------------
11110
В двух столбцах (например, A и B) вводите показатели, в третьем (например, С) вычисляете разницу. Нужное количество можно вычислить с помощью функции СЧЁТЕСЛИ.