Var
i, n: integer;
sum, x: real;
begin
n:= 7;
sum:= 0.0;
for i:= 1 to n do
begin
write(i, '-е число = ');readln(x);
sum := sum + x
end;
writeln('Выпадет ', round(sum/n));
case round(sum/n) of
1,5,7,9,11,13,15: writeln('Красное');
2,4,6,8,10,12,14,16: writeln('Чёрное');
3: writeln('Зелёное');
else writeln('Неизвестный цвет');
end;
readln;
end.
Пример:
<span>1-е число = 2
2-е число = 4
3-е число = 9
4-е число = 5
5-е число = 1
6-е число = 6
7-е число = 8
Выпадет 5
Красное</span>
var sum,n:int64;
begin
write('Vvedite chislo: ');
readln(n);
while(n>0) do begin
sum:=sum+(n mod 10);
n:=n div 10;
end;
writeln(sum);
readln;
end.
Считаем количество символом от кавычек до кавычек (их не считаем), включая пробелы между словами
Всего 27. Так как один символ равен 8 битам=одному байту то Ответ 27 байт (или 216 бит)
Var x:integer;y:real;beginwrite ('x= ');readln (x);y:=(2*x-4)/2;write('y= ', y:6:2);end.
Dim a(1 to 20) as Integer
Dim i as Integer
Randomize Timer
For i=1 To 20
a(i)=Int(50*Rnd)-25
Print a(i);
Next i
Print
For i=1 To 20
If a(i)>0 Then Print i;
Next i
Print