Var n,i: integer;
begin
write('Введите целое число = ');
readln(n);
i:=2;
while (n mod i <> 0) do i:=i+1;
if i=n then writeln('Число ',n,' простое')
else writeln('Число ',n,' не простое');
<span>end.</span>
Var
s,fam,nam:string;
begin
writeln('Vvedite imy i familiy:');
readln(s);
nam:=copy(s,1,pos(' ',s)-1);
fam:=copy(s,pos(' ',s)+1,length(s));
if nam[length(nam)]=fam[length(fam)-1] then writeln('Sovpadayut') else writeln('Ne sovpadayut');
write('Dly vyhoda nagmite Enter');
readln;
end.
Решим всё по формуле включений и исключений:
350+200+500-(50+20+10+5)=1050-85=965
Ответ: <u>965</u>
Var a,sum:integer;
begin
sum:=0;
for a:=10 to 15 do begin
sum:=sum+a;
end;
write('сумма = ',sum);
<span>end.
</span>
На картинке: стакан с напитком и эскимо на палочке с глазурью