Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
без остатка нет
25: 2=12+1 клетка в остатке
program xxx;
var a,s : string;
i: integer;
begin
writeln ('введите слово и символ-');
readln (s,a);
for i: =1 to length(a) do
if copy (s,i,1)=a then writeln (i);
readln
end.
на pascal:
program sonik;
uses crt;
var a,b,c: string;
readln (a); readln (b); readln (c);
writeln (' фигуры: ',a,b,c);
а)
var
p,d,h: real;
readln(h);
p: =1200*9.8*h;
writeln(p);
б)
m,h,r: real;
readln(r);
m: =1200*3.14*h*r*r;
writeln(m);
end;
в) необходимы дополнительные условия количество сосудов
если принять количество сосудов за k тогда
i,k: integer;
m,h,r,s: real;
readln(k);
s: =0;
for i: =1 to k do
s: =s+m;
writeln(s);
Популярные вопросы