Написать программу, которая в файл «z3.dat» записывает 20 первых элементов последовательности an = 3n – 15.
program n3;
var T: text; n, a: integer;
begin
assign (__, );
rewrite (T);
for n:=1 to ___ do
begin
a := 3*n – 15;
Write (___, a);
end;
close (___);
end.
num1 = float(input("Введите первое число: "))-вводиться число
num2 = float(input("Введите второе число: ")) -вводиться второе число
if num1 < num2: -если нум1 меньше нум2 тогда
print (num1, "меньше чем", num2) вывести нум1 меньше чем нум 2
if num1 > num2: - если нум1 больше чем нум2 тогда
print (num1, "больше чем", num2) вывести нум1 больше чем нум2
if num1 == num2: -если нум1 равно нум2 тогда
print (num1, "равно", num2) вывести нум1 равно нум2
if num1 != num2: -если нум1 не равно нум2 тогда
print (num1, "не равно",num2) вывести нум 1 не равно нум2
ЗАДАЧА №1
var
x, y: Real;
begin
Read (x);
if x > 10 then
y := Pi - 2 * x
else
y := 1 - x;
Write (y)
end.
ЗАДАЧА №2
var
a, b: Real;
begin
Read (a, b);
Write (sqr (min (a, b)), ' ', max (a, b) * max (a, b) * max (a, b))
end.
ЗАДАЧА №3
var
a, c: Word;
begin
Read (a);
c := 0;
if a div 100 < 5 then
Inc (c);
if (a div 10) mod 10 < 5 then
Inc (c);
if a mod 10 < 5 then
Inc (c);
if c > 0 then
Write ('содержит цифры меньше 5')
else
Write ('не содержит цифры меньше 5')
end.