Данная программа работать не будет, вот исправленная программа:
program a1; // Название программы (a1)var a,b,s: integer; // Список переменных, которые принадлежат типу Innteger;begin // Началоa:=10; //Присвоение к переменной a значение 10.b:=7; //Присвоение к переменной b значение 7.s:=a+b; //Присвоение к переменной s сумму переменной a и b.writeln ('Сумма=', s); //Вывод значения переменной s.
end. //конец
Программа выведет следующее: "Сумма=17".
A2=2/2=1
B2=2+1=3
C2=1+2=3
D2=2-1=1
На диаграмме 4) отражено соотношение значений ячеек, как 1:3:3:1
ответ 4)
№1. Блок схема только к 1 заданию!!!!!!!!!!!!!!!!!!!!!!!!
Program v1; Var S,M,A,B: integer; Begin
Write ('Введите А и В, через пробел: '); Readln (A,B); S := A + B; M := A * B;
Writeln ('S = ', S); Write ('M = ', M);
End.
№2.
Program v1; Var S,M,A,B: integer; Begin
Write ('Введите А и В, через пробел: '); Readln (A,B); if (A > B) then Write ('Число ',A,' больше числа ',B) else Write ('Число ',B,' больше числа ',a)
<span>End.</span>
//Pascal ABC.NET v3.1 сборка 1172
Const
n=5;
Var
ar1,ar2:array[1..n] of integer;
i,k,m:integer;
begin
writeln('Reading array A:');
for i:=1 to n do
readln(ar1[i]);
writeln('Reading array B:');
for i:=1 to n do
readln(ar2[i]);
writeln('Res:');
for i:=1 to n do
if ar1[i]>5 then
begin
writeln(i);
break;
end;
for i:=1 to n do
if odd(ar2[i]) then
begin
writeln(ar2[i]);
break;
end;
end.
Пример ввода:
Array A:
1
2
4
5
9
Array B:
1
4
7
9
13
Пример вывода:
Res:
5
1
50, если применять способ хранения «бит на пиксель».