После do точку с запятой ставить не надо

uses crt;
var
    i, j: integer;

begin
    randomize;
    for i := 1 to 20 do
    begin
    writeln(i);
        textcolor(green);
        for j := 1 to 20 do
            write(random(50000));

        textcolor(yellow);
        for j := 1 to 20 do
            write(random(50000));

        textcolor(red);
        for j := 1 to 20 do
            write(random(50000));
    end;
end.

0 0

4 года назад

На уроці фізкультури учні вишикувалися в шеренгу.Данилко побачив,що він п'ятий зліва і сьомий справа.Скільки учнів було в шеренз

lolitagucci

4 слева и 6 справа и он сам
4+6+1=11

0 0

4 года назад

Дано вещественное число а. Напечатать все значения n ,при которых 1+(1/2)+(1/3)+..+(1/n)<a

RaBort

Program fofgogjoj;
var
n:integer;
a,s:real;
begin
repeat
Writeln('Введите вещественное число a');
Read(a);
until a>1;
s:=0;
n:=1;
while s<a-1/n do
begin
s:=s+1/n;
Write(n:4);
n:=n+1;
end;
Writeln;
Writeln('s=',s:0:4);
end.

Не советую печатать число большее 10 xD

0 0

4 года назад

Помогите очень прошу. С объяснением

ка Максим ка

Ответ: 56

Цикл "for k:= 3 to 8 do" выполнится 6 раз (8-3+1), значит сложение "s:=s+8"; произодет 6 раз, 6*8=48, и в переменной s изначально было 8 => 48+8=56

0 0

4 года назад