1.
program z1;
var S,t:integer;
V:real;
begin
write ('S = ');
readln (S);
write ('t = ');
readln (t);
V:=S/t;
writeln ('V = ',V)
end.
2.
program z2;
var a,b,c,P:integer;
begin
write ('a = ');
readln (a);
write ('b = ');
readln (b);
write ('c = ');
readln (c);
P:=a + b + c;
writeln ('P = ',P)
end.
3. 42
Объяснение:
1. Смотри картинки 1,2
2. Смотри картинки 3,4
3.
A = 10
А = 50 В = ? S = ?
B = A * 4 = 10 * 4 = 40
А = 10 В = 40 S = ?
A = A + B = 10 + 40 = 50
А = 50 В = 40 S = ?
B = B / 5 = 40 / 5 = 8
А = 50 В = 8 S = ?
S = A - B = 50 - 8 = 42
А = 50 В = 8 S = 42
1. var f: real, Эта строчка обозначает ввод переменных в данный момент это переменная f и после двоеточия указывается тип переменной в данный момент стоит real - это вещественные числа, то есть нецелые
t: integer; Здесь ввели еще одну переменную ее назвали t и дали ей тип переменой Integer - это целые числа
2begin Начало программы
readln (f); Вводит число с клавиатуры и это число сохраняется в переменной f
readln (t); Вводит число с клавиатуры и это число сохраняется в переменной t
3 if (f>4) and (t<7) Это условие Если оно звучит так если F>4 и t<7
4 then тогда
5 writeln ( “YES”) Он выведет на экран слово YES
6 else writeln ( “NO”) Иначе если условие будет неверным он выведет на экран слово NO
7 end. Конец программы.
Объяснение:
Сначала они будут заполнены значением, большим своего индекса на 1, а потом каждому элементу, начиная со второго (который А[1]) будет присвоено значение предыдущего элемента и 1 распространится везде.
Для проверки была написана программа с отладочной выдачей.
var
a:array[0..10] of integer;
i:integer;
begin
for i:=0 to 10 do begin a[i]:=i+1; Write(a[i],' ') end;
Writeln;
Write(a[0],' ');
for i:=1 to 10 do begin a[i]:=a[i-1]; Write(a[i],' ') end
end.
Результаты
1 2 3 4 5 6 7 8 9 10 11
1 1 1 1 1 1 1 1 1 1 1
ответ: 3)