Вот :) Надеюсь, всё будет понятно.
46, 75 и 80
т.к. 46 чётное;
75 не удвл. высказыванию т.к. там написано строго меньше 75;
80 > 75
1)
a=3+8*4=35;
b=(35 div 10)+14=3+14=17
a=(17 mod 10)+2=7+2=9
2)
a=100-30*3=10
т.к. а<b (10<30) то идём по отрицательной ветви (else)
c=30-10=20
Ответ: 1) а=9; 2) с=20
Var
number, day, month: integer;
begin
writeln('Напишите день');
readln(number);
day := (number mod 30);
month := (number div 30);
writeln(day, '.', month);
end.
program raf105;
var
s: string;
g: integer;
function glas(s:string): integer;
const
glas_list = 'аяоёуюыиэе';
var
i,j,res:integer;
begin
s:= lowercase(s);
for i:=1 to length(s) do
for j:=1 to length(glas_list) do
if s[i] = glas_list[j]
then res:= res + 1;
glas:= res;
end;
begin
write('Введите строку: ');
readln(s);
g:= glas(s);
writeln('В строке ',g,' глас.');
end.
<h3><u>PascalABC 3.4.2</u></h3>