Прете как минимум три ва определение по красное.. сарсны номлоор 1 вид информации 2 вид информации 3 вид информации 2. опишите каждый вид информации и примеры. описание пример описание пример описание пример ( я на соч)
Var a,b:integer; begin writeln('введите число (км)'); readln(a); b:=a*1000 writeln('метры = ',b); end.
задание 2 program dfg; var x,y,b,d:real; begin writeln('введите стоимость гостиницы (за сутки)'); readln(x); if x>0 then begin writeln('введите стоимость питания (за сутки)'); readln(y); if y>0 then beginwriteln('введит стоимость сувинир (за сутки)'); readln(b); if b>0 then begin d:=(x+y+b)*7; writeln('необходимая сумма',d); end else writeln('число не может быть отрицательным'); end else writeln('число не может быть отрицательным'); end else writeln('число не может быть отрицательным'); end.
Program k1; var a: integer; begin writeln ('Введите число От 1 до 20'); readln (a); if a = 1 then writeln('Мне 1 год'); if a = 2 then writeln('Мне 2 года'); if a = 3 then writeln('Мне 3 года'); if a = 4 then writeln('Мне 4 года'); if a = 5 then writeln('Мне 5 лет'); if a = 6 then writeln('Мне 6 лет'); if a = 7 then writeln('Мне 7 лет'); if a = 8 then writeln('Мне 8 лет'); if a = 9 then writeln('Мне 9 лет'); if a = 10 then writeln('Мне 10 лет'); if a = 11 then writeln('Мне 11 лет'); if a = 12 then writeln('Мне 12 лет'); if a = 13 then writeln('Мне 13 лет'); if a = 14 then writeln('Мне 14 лет'); if a = 15 then writeln('Мне 15 лет'); if a = 16 then writeln('Мне 16 лет'); if a = 17 then writeln('Мне 17 лет'); if a = 18 then writeln('Мне 18 лет'); if a = 19 then writeln('Мне 19 лет); if a = 20 then writeln('Мне 20 лет'); end;
Эту программу можно было легче через оператор CASE делать) но мы не ищем легких путей
a,b:integer;
begin
writeln('введите число (км)');
readln(a);
b:=a*1000
writeln('метры = ',b);
end.
задание 2
program dfg;
var
x,y,b,d:real;
begin
writeln('введите стоимость гостиницы (за сутки)');
readln(x);
if x>0 then
begin
writeln('введите стоимость питания (за сутки)');
readln(y);
if y>0 then
beginwriteln('введит стоимость сувинир (за сутки)');
readln(b);
if b>0 then
begin
d:=(x+y+b)*7;
writeln('необходимая сумма',d);
end
else
writeln('число не может быть отрицательным');
end
else
writeln('число не может быть отрицательным');
end
else
writeln('число не может быть отрицательным');
end.