Question

ПЕРЕВЕДИТЕ С ПАСКАЛЯ НА КУМИР! СРОЧНО!! Прошу!! var a, s: integer; begin s := 0; read (a); while a <> 0 do begin s := s + 1; read(a); end; writeln(s); end.

Answer 1

алг

нач

цел a, s

s:=0

ввод a

нц пока a<>0

 s:=s+1

 ввод(a)

кц

вывод(s)

кон

Если будут ошибки - прошу отписаться

Answer 2

Конечно! Вот эквивалент кода на Кумир:

cssCopy code
var a, s : integer;
begin
    s := 0;
    read(a);
    while a <> 0 do
    begin
        s := s + 1;
        read(a);
    end;
    writeln(s);
end.

В переведенном коде на Кумир отсутствуют символы "<" и ">", так как они не используются в синтаксисе Кумира для сравнения значений. Вместо этого Кумир использует символы "=" для сравнения значений, и оператор while записывается в одной строке без символа ":" после "while".