Uses crt;
var a,b:integer;
begin
writeln('введите первое число');
readln(a);
writeln('введите второе число');
readln(b);
if a>b then writeln(a-b,' первое число больше второго');
if a<b then writeln(b-a,' второе число больше первого');
if a=b then writeln('0 оба числа равны');
end.

0 0

4 года назад

Вычислите сумму элементов массива из 10 целых чисел,стоящих на нечетных местах(в паскаль)

062817 [31]

// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
var a:=ArrRandom(10,-5,15); a.Println;
Writeln('Сумма элементов с нечетными индексами равна ',
Range(0,9,2).Select(i->a.ElementAt(i)).Sum)
end.

Тестовое решение:
11 -3 3 8 8 14 8 12 15 2
Сумма элементов с нечетными индексами равна 45

0 0

3 года назад

Прочитать ещё 2 ответа

Дана строка текста, состоящая из слов. Слова отделяются друг от друга одним из специальных символов, которые описываются во множ

отшельникъ [116K]

Var s:string;
i,a:longint;
begin
readln(s);
for i:=1 to length(s) do
if (s[i]='-') or (s[i]='*') or (s[i]='/') or (s[i]=',') then
inc(a);
writeln(a);
end.

0 0

4 года назад