Выражение будет иметь следующий вид: (2+t)*2.
Если нужно вычисление, тогда вот: t вводится с клавиатуры
Program Crt;
Var tmp,t:real;
Begin
WriteLn("Введите t= "); ReadLn(t);
tmp:= (2+t)*2;
WriteLn("Ответ: ", tmp);
readln();
end.
Материальная - машина и вселенная
Нематериальная - запись формулы
Смешанная - школа и армия
Напиши нормально,позязя ема !!
var x: integer;
begin
write('Введите номер дня недели: ');
readln(x);
if (x = 1)then writeln('Понедельник');
if (x = 2)then writeln('ВТорник');
if (x = 3)then writeln('Среда');
if (x = 4)then writeln('Четверг');
if (x = 5)then writeln('Пятница');
if (x = 6)then writeln('Субота');
if (x = 7)then writeln('Воскресенье');
end.