Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
pascal:
program strings;
uses crt;
var i,open,close: integer;
a: string;
begin
open: =0;
end: =0;
clrscr;
write('введите строку: '); readln(a);
for i: =1 to length(a) do
if a[i]='(' then open: =open+1;
if a[i]=')' then close: =close+1;
end;
writeln('открывающихся скобок: ', open, ' штук');
writeln('закрывающихся скобок: ', close, ' штук');
readln;
end.
program pr;
var i: integer;
mas: array[1..7]of integer;
for i: =1 to 7 do
writeln ('введите температуру ', i ,' сентября');
readln (mas[i]);
for i: =1 to 7 do writeln (i, ' сентября температура была ' mas[i]);
Популярные вопросы