Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
используется язык pascal
program pr;
var
mas: array[1..7] of integer;
i: integer;
begin
writeln('вводим значения в массив');
for i: =1 to 7 do readln (mas[i]);
writeln('выводим значения из массива');
for i: =7 downto 1 do writeln(mas[i]);
readln;
end;
сумму чисел один,два,три,четыре,пять разделить на разность чисел 10 и 7.равно пяти.
2000*2000=4000000 пикселей=4 мегапикселей
var s1, s2: string;
begin writeln('введите строку'); readln(s1); writeln('введите слово'); readln(s2); writeln('позиция слова в строке'); writeln(pos(s2, s1)); end.
Популярные вопросы