Представление текстовых данных, представление графической информации, представление звуковой информации, представление видео. Я написала только способы предоставления информации. Надеюсь помогла
Var a,b,c:integer;
begin
writeln('Вычесление периметра треугольника.');
writeln('Введите значение стороны a.');
readln(a);
writeln('Хорошо. Вы ввели значение для a: ',a);
writeln('Введите значение стороны b.');
readln(b);
writeln('Хорошо. Вы ввели значение для b: ',b);
writeln('Введите значение стороны c.');
readln(c);
writeln('Хорошо. Вы ввели значение для c: ',c);
if a<0 then
writeln('Данный треугольник не существует')
else
if b<0 then
writeln('Данный треугольник не существует')
else
if c<0 then
writeln('Данный треугольник не существует')
else
if a+b<c then
writeln('Данный треугольник не существует')
else
if a+c<b then
writeln('Данный треугольник не существует')
else
if b+c<a then
writeln('Данный треугольник не существует')
else
writeln('Периметр треугольника: ',a+b+c);
end.
2^3=8 → от 5 до 8 всего (т.к. 2 бита - это 2^2=4)
Var
n, i, m: longint;
s1, s2: string;
l1: integer;
begin
Write('Введите натуральное число: ');
Readln(n);
Writeln('Автоморфные числа:');
for i := 1 to n do
begin
m := sqr(i);
Str(i, s1);
l1 := Length(s1);
Str(m, s2);
if s1 = Copy(s2, Length(s2) - l1 + 1, l1) then Writeln(i)
end
end.
Тестовое решение:
Введите натуральное число: 10000
Автоморфные числа:
1
5
6
25
76
376
625
9376
Собрать ветки.
взять спички .
разжечь костёр.