Даю 50 баллов, срочно, нужно сделать задание в Pascal.. Created by ST4NG. informatika-ru

Даю 50 баллов, срочно, нужно сделать задание в Pascal...

ST4NG @ST4NG

August 2022 1 4 Report

Даю 50 баллов, срочно, нужно сделать задание в Pascal.

Answers & Comments

Filippzzz

Verified answer

Program Rick_and_Morty;
Var i: integer;

begin
write('Ваш год: ');
readln(i);

case i mod 12 of
0: writeln('Год обезьяны');
1: writeln('Год петуха');
2: writeln('Год собаки');
3: writeln('Год кабана');
4: writeln('Год крысы');
5: writeln('Год быка');
6: writeln('Год тигра');
7: writeln('Год кролика');
8: writeln('Год дракона');
9: writeln('Год змеи');
10: writeln('Год лошади');
11: writeln('Год овцы');

end;
end.

1 votes Thanks 1

ST4NG люблю тебя

rebyat pomogite s resheniem zadachi v pascal massivy vopros dana matrica anxn

Answer

ST4NG July 2022 | 0 Ответы

pomogite reshit zadachu pascal

Answer

Answers & Comments

Verified answer

rebyat pomogite s resheniem zadachi v pascal massivy vopros dana matrica anxn

pomogite reshit zadachu pascal

рекомендуемые вопросы

Helpful Links

Helpful Social