Perfect vision for programming

Типы данных

INTEGER

ЗАДАЧА: Посчитать сумму двух чисел введенных с клавиатуры.

var x,y:integer;
BEGIN
    writeln('Введите два числа: ');
    readln(x,y);
    writeln('Сумма чисел = ',x+y);
END.

REAL

ЗАДАЧА: Ввести с клавиатуры 5 чисел, и вывести среднее арифметическое данных чисел.

var x,y,z,w,t:real;
BEGIN
    writeln('Введите 5 чисел:');
    readln(x,y,z,w,t);
    writeln('Среднее арифметическое = ',(x+y+z+w+t)/5);
END.

BOOLEAN

ЗАДАЧА: Ввести 3 целых числа: a,b и c. Если a>b и c<10, выводит True, ложно False.

var a,b,c:integer;
        s:boolean;
BEGIN
    writeln('Введите 3 числа (целых): ');
    readln(a,b,c); 
    s:=(a>b) and (c<10);
    writeln(s);
END.

CHAR

ЗАДАЧА: Программа вывода кода символа

uses crt;
var i:char;
BEGIN
  readln(i);
  writeln('Код символа - ',i,' = #',ord(i),' ') // Возвращает значение выражения перечисляемого типа.
END.

STRING

ЗАДАЧА: Ввести 3 целых числа: a,b и c. Если a>b и c<10, выводит True, ложно False.

var a,b,c:integer;
        s:boolean;
BEGIN
    writeln('Введите 3 числа (целых): ');
    readln(a,b,c); 
    s:=(c<10) AND (a>b);
    writeln(s);
END.

2018-2020, Илья Любимов.

Автор - Tipo_4ek

По коммерческим предложениям - e-mail