Задача 9 Урок 5

Получите от пользователя целое значение, умножьте его на значение вещественной переменной (присвойте ей его явно в коде), результат произведения запишите в третью переменную и выведете её значение на экран.

var
    a: real;
    b: integer;
    c: real;
begin
    writeln ('dany peremeppye a: real. b: int');
    a := 5.5;
    writeln ('vvedite chislo');
    readln (b);
    c := a*b;
    writeln (c);
end.

Задача 8 Урок 5

Вам нужно получить от пользователя
два вещественных числа и ещё два целых,
запишите все эти 4 значения в переменные
и выведете значения
переменных на экран, чтобы было ясно
значение какой переменной чему равно.

var
    a, b: real; 
    c, d: integer;
begin
    writeln ('dany peremeppye a: real; b: real; c: int; d: int');
    writeln ('vvedite 4 chisla');
    readln (a, b, c, d);
    writeln ('a = ', a,' ', 'b = ', b,' ', 'c = ', c,' ', 'd = ', d);
end.

Задача 7 Урок 5

Получите от пользователя целое число (не более 100),
посчитайте результат умножения этого
числа на 7 и выведите этот
результат на экран (в консоль).

var
    a: integer;
begin
    writeln ('Vvedite chislo ne bolee 100');
    readln (a);
    writeln (7*a);
    readln ();
end.

Задача 9 Урок 4

Присвойте трем переменных значения 34
, 36.7
и 7.3
, в четвертую переменную запишите разность между произведением и суммой первых трёх переменных и выведете значение на экран.

var
    a: integer;
    b: real;
    c: real;
    d: real;
begin
    a := 34;
    b:= 36.7;
    c:= 7.3;
    d:= (a*b*c)-(a+b+c);
    write (d);
end.

Задача 6 Урок 4

Выведите на экран сумму чисел 5
и 7.3

begin
    write (5+7.3);
end.

Задача 7 Урок 4

Выведите на экран сумму значений двух переменных, со значениями 8
и 71.3

var
    a: integer;
    b: real;
    c: real;
begin
    a := 8;
    b := 71.3;
    c := a+b; 
    write (c);
end.

Задача 8 Урок 4

Выведите на экран сумму чисел 9
и 4.3
, записав результат в переменную и используя для вывода уже значение переменной.

var
    a: real;
begin
    a := 9+4.3; 
    write (a);
end.

pascal Остататок от деления: ищем ограниченное количество подходящих чисел, меньше общего - Разбор решения

Разбор:

  • ютуб: https://youtu.be/vx7rkTGta8U
  • вк: https://vkvideo.ru/video-58271214_456239120

Формулировка задачи из урока про деление нацело и получение остатка:

Пользователь вводит 4 целых числа, выведите на экран не более трех из этих чисел, которые делятся нацело на 4 (т.е. нужно вывести те числа, которые делятся на 4, но не более трех штук).

Задачи 13.2

Задачи 13.2:

1) Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (используйте циклы repeat):
- - - - - -
- - - - - -
- - - - - -
- - - - - -

sudo apt install lazarus unsupported file

sudo apt install lazarus unsupported file

Pages

Subscribe to fkn+antitotal RSS