Помогите!!! 100 баллов!!! Составьте 3 программы!!! Или хотя бы 2!!!

0 голосов
27 просмотров

Помогите!!! 100 баллов!!! Составьте 3 программы!!! Или хотя бы 2!!!


image

Английский язык (290 баллов) | 27 просмотров
Дан 1 ответ
0 голосов

Var i: integer;    
     m: array[1..9] of integer;
begin  
    for i := 1 to 9 do     
        readln(m[i]);  
    for i := 1 to 9 do     
        if(m[i] mod 3 = 0) then write(m[i]:3);
end.

(62 баллов)