50, если применять способ хранения «бит на пиксель».
Var a,b,c: integer;
begin
readln(a,b,c);
if (a=b)and(b=c) then writeln('Все числа равны')
else
begin
a:=a-5; b:=b-5; c:=c-5;
writeln('a = ',a,' b = ',b,' c = ',c);
end;
end.
Пример:
7 5 6
<span>a = 2 b = 0 c = 1</span>
Uses crt; (Подключение внешних файлов)
Var
ves: real;
m: real;
Begin
clrscr;
write('ves=');
read(ves);
m: = ves * 0.65;
writeln ('Масса молекул кислорода', m:2:1, 'кг.');
readkey;
End.
Начало
Сними трубку
набери номер
дождись гудка
гудки длинные?
передай сообщение
дождись ответа
положи трубку
конец
в ромбе всегда стоит вопрос.
Var x, y, i, c, s: integer;
begin
readln(x, y);
if (x < y) then
begin
for i := x to y do
begin
c := c + 1;
s := s + i;
end;
writeln('S = ', s, ' C = ', c);
end;
<span>end.
2)
const N = 10;
var a, c: array [0..N] of integer;
i: integer;
begin
for i := 0 to N do
a[i] := random(50);
for i := 0 to N do
begin
if (a[i] mod 2 = 0) then
c[i] := a[i] * a[i]
else
c[i] := 2 * a[i] * i;
end;
{Вывод массива, это для проверки, не обязательно, но если хотите...}
for i := 0 to N do
writeln('[', i, '] => ', c[i]);
<span>end.
<em>Учителям информатики очень лень говорить домашку х)</em></span></span>