Технология ( урок) по другому труд
Program zadacha;
var a,b,s:integer;
begin
writeln('Введите кол-во жителей: ');
readln(a);
writeln('Введите площадь государства: ');
readln(b);
s:=a/b;
writeln(s);
end.
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.