Var x,y:real;
begin
write('x = '); readln(x);
if x>12
then y:=2*x+15
else if x=12 then y:=54.4 else y:=-7.8;
writeln('y = ',y);
end.
Пример:
x = 10
y = -7.8
T=150*2*8/(2+6)=300 сек=5 мин
ответ передача заняла 5 минут.
Program voz;
uses crt;
var a,b,c,d,e,f : integer;
begin
Write('Какая сейчас дата?(д м г)');
Read(a,b,c);
write('Введите дату вашего рождения (д м г)');
read(d,e,f);
if (b>=e) and (a>=d) then Writeln('Вам ',c-f,' лет') else writeln('Вам ',c-f-1,' лет');
end.
Чем компьютер вреден
вреден он тем что многие сейчас 1\3 своей жизни люди проводят за компьютером,телефоном,ноутбуков,етим они гробят себе зрение и осанку лучше выйти на улицуи погулять гуляйте почаще
а хорошие качества есть мы можем найти полезную информацыю .
раньше люди жили без компьютеров и обходились без него но сейчас 21 век и все привыкли сидеть за компомно хотябы 1 в день проыетривайтесь на улице и делайте зарядку глаз