program z1; uses crt; var s: string; c: char; i: integer; begin write(' vvedite strocy: '); readln(s); writeln(); write(' vvedite sivol dl poiska: '); readln(c); writeln(); for i : = 1 to length(s) do if s[i] = c then // begin writeln(' simvol prinadlech stroce = ', s); break; end; if s[i] < > c then writeln(' simvola net v stroke = ', s); end.
Ответ дал: Гость
var c,a,b,i,j,l: integer; begin cls;
write('введите через пробел отрезок'); read(a,b); for i: =a to b+1 do begin j: =2; l: =round(sqrt(i)); while (i mod j < > 0) and (j < = l) do begin inc(j); end; if (j > l) then begin write(c,' '); c: =i; end; end; end.
Ответ дал: Гость
№1. программа на паскале
program xxx;
var n : integer;
x : array[1..10] of integer;
begin
for n: =1 to 10 do
x[n]: =sqr(n) + 5;
wreteln('последовательность х: ')
for n: =1 to 10 do
write(x[i]);
readln
end.
Ответ дал: Гость
1)m(hcl)=50*0.292=14.6г
2)n(hcl)=m/m=14.6/36.5-=0.4моль
3)n(оксида металла)=0,4/2=0,2
4)m(оксида металла)= 8/0,2=40
5)раз металл двухвалентен, то значит формула - meo, следовательно вычти из молярной массы оксида массу кислорода
Популярные вопросы