Решите пожалуйста задание на ABC_Pascal NET я не знаю как делать решите буду вам очень благодарен. 3-4 Задачи надо можно любую
Приложения:
![](https://st.uroker.com/files/d4b/d4b65bdaeea24778f2a5f591a2ed05d3.jpg)
Ответы
Ответ дал:
0
3-я задача:
program qq;
var a,b,c,f,m: integer;
begin
writeln('Введите три числа');
readln(a,b,c);
if (a mod 2=0) or (b mod 2=0) or (c mod 2=0) then
begin
if a>b then f:=a else f:=b;
if f>c then f:=f else f:=c;
Writeln('Максимальное число =: ',f);
end
else
if a>b then m:=b else m:=a;
if m>c then m:=c else m:=m;
Writeln('Минимальное число =: ',m);
end.
Ответ дал:
0
Задача 4
var
s,b: integer;
begin
b:=0;
for s:=0 to 100 do
if s mod 7=0 then
b:=b+s;
writeln(b);
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад