Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program p1;
var y, x : integer;
begin:
write(x);
y=7x+5;
println(y);
end;
Объяснение:
это правильно
var ch,n,i: longint;
ch1,s: string;
begin
read(s,ch);
n: =length(s);
writeln(n,' ',ch);
str(ch,ch1);
for i: =1 to n do if s[i]=ch1 then write(i,' ');
end.
program sir; var y,x,h: real; beginx: =280; h: =0.1; while h< =1 do begin y: =x*h; writeln('цена за ',h*1000,' грамм ',y,' руб'); h: =h+0.1 end; end.
Популярные вопросы