Запишу на обычном языке, Паскаль не помню уже.
А - первое число. Б - второе число.
Если А больше Б и Б div 5=0 тогда выводится на экран (' Б наименьшее число и нацело делится на 5')
Если Б больше А и А div 5=0 тогда выводится на экран (' А наименьшее число и нацело делится на 5')
Точно не помню как выглядит это в Паскале, но что-то типо такого
If A<B and A div 5=0 then writeln ('А наименьшее число и нацело делится на 5');
If B<A and B div 5=0 then writeln ('Б наименьшее число и нацело делится на 5');
Авторлық құқық
1) автор - шығармашылық еңбегімен ғылым, әдебиет, өнер туындысын жасаған жеке тұлға;
2) авторлық құқық - автордың жеке мүліктік емес және мүліктік құқықтары;
3) авторлық құқықты және сабақтас құқықтарды қорғаудың техникалық құралы - туындыларға немесе сабақтас құқықтар объектілеріне қол жеткізуді бақылайтын, автор, сабақтас құқықтар иесі немесе өзге де айрықша құқықтар иесі туындыларға немесе сабақтас құқықтар объектілеріне қатысты рұқсат етпеген іс-әрекеттерді жүзеге асыруды болғызбайтын не шектейтін техникалық (бағдарламалық-техникалық) құрылғы немесе оның компоненттері;
Объяснение:
a,b: real;
i,c:integer;
Begin
For i:= 1 to 7 do Begin
write('Введите среднюю температуру ',i'-ого дня ');
readln(a);
if a>0 then c:=c+1;
b:=a+b;
End;
Write('Средняя температура за неделю составила ',b/7,' C, а количество дней когда температура превышала 0 гр. = ',c);
End.