1 Объявите переменные, необходимые для вычисления значения функции у
- X
2. Объявите переменные, необходимые для пересчета веса из фунтов в
килограммы.
3 Объявите переменные, необходимые для вычисления объема
параллелепипеда.
4. Объявите переменные, необходимые для вычисления площади круга
5. Объявите переменные, необходимые для вычисления площади кольца.
6. Объявите переменные, необходимые для вычисления объема и площади
поверхности цилиндра.
7. Объявите переменные, необходимые для вычисления стоимости покупки,
состоящей из нескольких тетрадей, карандашей и линейки.
8. Объявите переменные, необходимые для вычисления стоимости покупки,
состоящей из нескольких тетрадей и такого же количества обложек.
9. Запишите инструкцию, которая присваивает переменной х значение —
1,5.
10. Запишите инструкцию, которая присваивает переменной summa нулевое
значение.
11. Запишите инструкцию, которая увеличивает на единицу значение
переменной п.
12. Запишите инструкцию, которая уменьшает на два значение переменной
counter.
13. Запишите инструкцию вычисления среднего арифметического
переменных xl и х2.
14. Запишите в виде инструкции присваивания формулу вычисления
значения функции у = - 2,7х3+ 0,23х2- 1,4.
15. Запишите в виде инструкции присваивания формулу вычисления
значения функции у = —г-.
16. Запишите в виде инструкции присваивания формулу пересчета веса из
фунтов в килограммы (один фунт равен 409,5 г).
17. Запишите в виде инструкции присваивания формулу пересчета
расстояния из километров в версты (одна верста равна 1066,8 м).
18. Запишите в виде инструкции присваивания формулу вычисления
площади прямоугольника.
var
a,b:string;
i:integer;
begin
readln(a);
readln(b);
For i:=1 to Length(a) do
begin
if (a[i]='3') then
Begin
Delete(a,i,1);
InSert('e',a,i);
End;
if (a[i]='0') then
Begin
Delete(a,i,1);
InSert('o',a,i);
End;
if (a[i]='1') then
Begin
Delete(a,i,1);
InSert('i',a,i);
End;
if (a[i]='7') then
Begin
Delete(a,i,1);
InSert('t',a,i);
End;
if (a[i]='4') then
Begin
Delete(a,i,1);
InSert('a',a,i);
End;
if (a[i]='5') then
Begin
Delete(a,i,1);
InSert('s',a,i);
End;
end;
if b in a then
writeln('YES')
else
writeln('NO')
end.
// Форматирование вывода вещественного числа можно поставить как нравится, я выбрал 3:3
// Считал, что доля с участием нуля равна 0%
program Calc;
var a, b: integer;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
writeln(a, '+', b, '=', a + b);
writeln(a, '-', b, '=', a - b);
writeln(a, '*', b, '=', a * b);
if (b = 0) then begin
writeln(a, '/', b, ' не определено');
writeln(a, ' составляет 0% от числа ', b);
end
else begin
writeln(a, '/', b, '=', (a / b):3:3);
writeln(a, ' составляет ', (a / b * 100):3:3, '% от числа ', b);
end;
if (a = 0) then
writeln(b, ' составляет 0% от числа ', a)
else
writeln(b, ' составляет ', (b / a * 100):3:3, '% от числа ', a);
end.