Например я стал умылся поел собрался оделся пошол в школу проучился пришол переобулся переоделся покушал сделал уроки спать
<u>На Паскале:</u>
var a,b,c,x: integer;
begin
writeln('Введите первую цифру: ');
readln(a);
writeln('Введите вторую цифру: ');
readln(b);
writeln('Введите третью цифру: ');
readln(c);
x:=a+b+c;
writeln('x = ',x);
end.
writeln - процедура для записи значений.
readln - процедура считывающая значения с клавиатуры.
<u><em>Microsoft QBasic</em></u>
DECLARE FUNCTION max# (a#, b#)
DECLARE FUNCTION min# (a#, b#)
INPUT "a=", a#
INPUT "b=", b#
INPUT "x=", c#
c# = max#(max#(a#, b#), min#(2 * a#, x#)) + 5
PRINT "c="; c#
FUNCTION max# (a#, b#)
IF a# > b# THEN
max# = a#
ELSE
max# = b#
END IF
END FUNCTION
FUNCTION min# (a#, b#)
IF a# < b# THEN
min# = a#
ELSE
min# = b#
END IF
END FUNCTION
1) const n=8 - константа, n нельзя будет присвоить другие значения
2) <span>Type is = array [1..n] of integer; это тип с названием "is" он равен массиву</span>
<span>3) var a:is; a-имеет тип is => это массив</span>
<span>4) begin - начало программы</span>
<span>5)end. - конец программы</span>