Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Знаковые числа со занаками: ' ¡
А без знаковые без
program pr;
var i: integer;
mas: array[1..7]of integer;
begin
for i: =1 to 7 do
writeln ('введите температуру ', i ,' сентября');
readln (mas[i]);
end;
for i: =1 to 7 do writeln (i, ' сентября температура была ' mas[i]);
readln;
end.
program xxx;
var a,s : string;
i: integer;
writeln ('введите слово и символ-');
readln (s,a);
for i: =1 to length(a) do
if copy (s,i,1)=a then writeln (i);
readln
Популярные вопросы