Ответ:
program abc;
var a:integer;
begin
writeLn('Введите год');
write('=> ');
readLn(a);
if (a mod 4 = 0) and ((a mod 1000 = 0) or (a mod 100 <> 0)) then writeLn('Год ',a,' - високосный') else writeLn('Год ',a,' - не високосный')
end.
Объяснение:
Var a,b:integer;
<span>begin </span>
<span>writeln('Введите два числа через пробел'); </span>
<span>read(a,b); </span>
<span>if (a div 10>b div 10) and (a mod 10<b mod 10) then writeln('Да') </span>
<span>else writeln('Нет'); </span>
<span>end.</span>
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>
1. Var s,i:integer;
Begin
S:=0;
For i:=1 to 1000 do
If (i mod 5<>0)and (i mod 7 <>0) Then s:=s+1;
Writeln(s);
Readln;
end.