Алгоритмы и программы. Афанасьева Т. В - 75 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

75
read(b);
write('Введите К=');
read(k);
c:=k*(a+b);
ost:=c mod del;
writeln('C=',c);
case ost of
0:writeln('Oстаток 0');
1:begin
writeln('Oстаток 1');
c:=c–ost;
writeln ('Новое значение C=',c);
end;
2:begin
writeln('Ocтаток 2');
c:=c+ost;
writeln('Новое значение C=',c);
end;
3:begin
writeln('Oстаток 3');
с:=с–ost;
writeln('Новое значение C=',c);
end;
end;{case}
end.
Пример 3.10. Вывести на экран число дней в любом месяце.
program mes;
var
m,f,dn,d:integer;
begin
writeln('Вывести на экран число дней в любом месяце ');
write(' Введите месяц:');
f:=0;
read(m);
case m of
1,3,5,7,8,10,12:d:=31;
2:begin
write('Сколько дней в году 365 или 366:');
read(dn);
if dn=365 then
d:=28
else

Страницы