program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); end.
Ответ дал: Гость
//pascalabc.net //версия 3.3, сборка 1634 (14.02.2018) begin var (cost, t, k) : = (arr(15, 70, 125, 230, 440), arr(1, 5, 10, 20, 60), new integer[5]); var n : = readinteger('n-> '); for var i : = 4 downto 0 do begin k[i] : = n div t[i]; n : = n mod t[i]; end; if k[0] * cost[0] > = cost[1] then begin k[0] : = 0; inc(k[1]); end; if k[0] * cost[0] + k[1] * cost[1] > = cost[2] then begin k[0] : = 0; k[1] : = 0; inc(k[2]); end; if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] > = cost[3] then begin k[0] : = 0; k[1] : = 0; k[2] : = 0; inc(k[3]); end; if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] + k[3] * cost[3] > = cost[4] then begin k[0] : = 0; k[1] : = 0; k[2] : = 0; k[3] : = 0; inc(k[4]); end; for var i : = 0 to 4 do writelnformat('{0} билет(ов)- {1} штук(а)', t[i], k[i]); end. пример(1): n-> 37 1 билет(ов)- 0 штук(а) 5 билет(ов)- 0 штук(а) 10 билет(ов)- 0 штук(а) 20 билет(ов)- 0 штук(а) 60 билет(ов)- 1 штук(а) пример(2): n-> 35 1 билет(ов)- 0 штук(а) 5 билет(ов)- 1 штук(а) 10 билет(ов)- 1 штук(а) 20 билет(ов)- 1 штук(а) 60 билет(ов)- 0 штук(а)
Ответ дал: Гость
var s,i,n,a: integer;
begin
read(a,n);
s: =1;
for i : = 1 to n do
s: =s*a;
writeln('a в степени n = ',s);
s: =1;
for i : = 1 to n do
s: =s*i;
writeln(s);
s: =0;
for i: = 1 to n do
begin
read(a);
s: = s + a;
end;
writeln('среднее арифметическое = ',s/n)
end.
Ответ дал: Гость
в латинице символ занимает 1 байт
далее простая арифметика
60*25*1=1500 байт /1024 -это для перевода в килобайты = 1,46484375 кбайт
далее находите кол-во страниц
делите общий объем 200 кб на 1,46484375 кбайт,в итоге получаете 136,53333333333333333333333333333, т.е 136 страниц,
если возможно напишите потом результат,интересно! за ранее !
п.с. вашему условию в какой кодировке кодируется не хватает!
Популярные вопросы