Бос орынды мағынасына сайкес толтыр 1байт- бит 1 024 - тб - id1368045620230316 от Никитонрпаачвпр 16.03.2023 21:44

Question

Информатика: Бос орынды мағынасына сайкес толтыр 1байт- бит 1 024 - тб ​

Никитонрпаачвпр · Accepted Answer

1) var a1, a2, a3, s: integer;
begin
write('Введите первое число: ');
readln(a1);
write('Введите второе число: ');
readln(a2);
write('Введите третье число: ');
readln(a3);
if a1>0 then s:=s+1;
if a2>0 then s:=s+1;
if a3>0 then s:=s+1;
writeln(s);
end.

2) var n, s, i: integer;
begin
write('Введите число n: ');
readln(n);
for i:=1 to n do
s:=s+i;
writeln(s);
end.

3) var n, s, i, k: integer;
begin
write('Введите число n: ');readln(n);
for i:=1 to n do begin
writeln('Введите рост ',i,' учащегося: ');
readln(k);
s:=s+k;
end;
writeln(s/i);
end.

4)var l, m: integer;
begin
write('Введите расстояние в сантиметрах: ');
readln(l);
m := l div 100;
write('Количество метров в ', l, ' сантиметрах = ', m);
end.

Бос орынды мағынасына сайкес толтыр1байт- бит 1 024 - тб ​

MOGZ ответил

Бос орынды мағынасына сайкес толтыр
1байт- бит
1 024 - тб