/ ИНФОРМАТИКА/ 6 КЛАСС 1. Для исполнителя составить программу рисования следующих фигур: 1) прямоугольник - id1573941620200628 от Гммммм 28.06.2020 08:21

Question

Информатика: / ИНФОРМАТИКА/ 6 КЛАСС 1. Для исполнителя составить программу рисования следующих фигур: 1) прямоугольник 2) квадрат (четырех угольник) 2. Для испольнителя составить программу рисования следующих букв: 1)Б 2)Г 3)Е 4)О 5)П 6)Р 7)Т 3. С программ, составленных к задаче №2, используяих как вс алгоритм исполнителю написать следущие слова: 1) БЕТ 2) БОР 3) ПОРТ 4) ГЕРБ 4) Исполнитель находится в нижнем правом углу, направлен на верх. После исполнения нижеследующих программ, в каком месте распологается

Гммммм · Accepted Answer

Var
s:string;
c1,cn:char;
n:integer;
begin
Write('Введите натуральное число: '); Read(n);
Str(n,s);
c1:=s[1];
cn:=s[Length(s)];
if c1>cn then Writeln('Первая цифра больше последней')
else
if c1<cn then Writeln('Первая цифра меньше последней')
else Writeln('Первая и последняя цифры одинаковы')
end.

Тестовые решения
Введите натуральное число: 362336
Первая цифра меньше последней

Введите натуральное число: 7341423
Первая цифра больше последней

Введите натуральное число: 4624
Первая и последняя цифры одинаковы

MOGZ ответил