Информация это сведенье из компьютера а органы чувств это твой язык и прочие оно саидено с друг другом
Блюдо№1- Взять мясо, провернуть мясо в мясорубке, взять тесто, закатать мясо в тесто, сварить тесто
Блюдо№2-Взять сыр, взять хлеб, нарезать сыр, нарезать хлеб, положить сыр на хлеб(бутерброт)
Блюдо№3- Взять тесто, поджарить тесто, взять сыр, нарезать сыр, закатать сыр в тесто(блины с сыром)
Программа для Pascal.
PROGRAM Z;
USES CRT;
VAR
A,B:INTEGER;
M:ARRAY[1..10] OF INTEGER;
BEGIN
CLRSCR;
WRITELN('VVEDITE ELEMENTY');
FOR A:=1 TO 10 DO READLN(M[A]);
WRITELN('CHETNIE ELEMNTY : ');
FOR A:=1 TO 10 DO IF A MOD 2 = 0 THEN WRITELN (M[A]);
READKEY
<span>END.</span>
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.