Var s : string;
i : integer;
begin
readln(s);
for i := 1 to length(s) do writeln(s[i]);
end.
Люди, раз уж выкладываете задания по программированию, то пожалуйста пишите желательный язык а то хрен вас пойми(это же программирование, а не предмет "Вангование") то ли вам Pascal, то ли вам С++ или же чего другого...
Ну да ладно.
Вот тебе на С++:
#include <iostream>
using namespace std;
int main()
int n;
cin>>n;
if(n%2==0)
{
cout<<n*2<<" chetnoe chislo";
}
else if(n%2!=0)
{
cout<<n*3<<" ne chetnoe chislo";
}
return 0;
}
На рисунке большой круг включает в себя два маленьких. Так как города в Англии и столичные европейские города все являются европейскими городами, то множество а включает в себя множества б и в, большой круг - множество а. Его элементы: Манчестер, Ливерпуль, Лондон, Москва, Париж, Мадрид, Венеция, Брест, а также многие не указанные на рисунке города, например, Кардифф, Женева, Милан.
Оставшиеся два круга представляют города в Англии и европейские столицы. Так как в множество, отвечающее левому кругу, входят Манчестер, Ливерпуль и Лондон, то это города Англии. В это множество входят и другие города, например, Кардифф.
Правому кругу, в котором записаны Лондон, Москва, Париж и Мадрид, остаётся только множество европейских столиц. В это множество входит также Женева и другие города.
Const
n = 8;
var
a: array[1..n] of integer;
i, t, im, max: integer;
begin
Writeln('Введите через пробел ', n, ' чисел');
max := -32768;
for i := 1 to n do
begin
Read(t);
a[i] := t; t := (i + 1) * t;
if max < t then begin max := t; im := i end;
end;
Writeln('Максимальное значение ', max, ' достигается как ', im + 1, '*a[', im, ']')
end.
<u>Тестовое решение:</u>
Введите через пробел 8 чисел
4 -3 5 4 3 2 1 0
Максимальное значение 20 достигается как 4*a[3]