Цитата:
Сообщение от EVO_X
Здравствуйте, помогите сделать контрольные на паскале, если можно с пояснениями. Нужно для допуска к зачету.
|
Интересно, что Вы будете делать на зачете... ну да Вам видней. Насчет пояснений - спрашивайте, если что-то непонятно будет.
Первое задание. Программа содержит обе подпрограммы (функцию и процедуру)
Код:
Var
n:Byte;
Function Test3(M:Byte):Boolean;
var
M1,Sum:Byte;
begin
M1:=M;
Sum:=0;
repeat
Sum:=Sum+(M1 mod 10);
M1:=M1 div 10;
until M1=0;
Test3:=(Sum mod 3)=0;
end;
Procedure Print_Triangle(M:Byte);
var
i,j:Byte;
begin
for i:=1 to M do
begin
for j:=1 to i do write(j:4);
writeln;
end;
end;
Begin
Write('n = ');
Readln(n);
Writeln(Test3(n));
Writeln;
Print_Triangle(n);
Readln
End.