3 года назад

Дан текст.Вывести все буквы, которые находятся на нечётных позициях

1 ответ:

Иван83413 года назад

0 0

Var s:string;
i:integer;
begin
writeln('Введите строку');
readln(s);
for i:=1 to length(s)
do if i mod 2 =1 then write(s[i]);
end.

Читайте также

В классе 30 учеников, и все ходят в спортивные секции. 15 человек ходят в футбольную секцию, 10 в баскетбольную, и 18 в волейбол

Nastyshe4ka [21]

Ответ 14 с помощью кругов эйлера

0 0

4 года назад

СОСТАВТЕ ПРОГРАММУ КОТОРАЯ ПРОВЕРЯЕТ РАВНЫ ЛИ 3 ВВЕДЁНЫХ ЧИСЛА И ВЫВОДИТ НА ЕКРАН СООТВЕТСТВУЮЩЕЕ СООБЩЕНИЕ "РАВНЫ " ЛИБО "НЕ РА

leklek

INPUT "a="; a
INPUT "b="; b
INPUT "c="; c
IF a = b AND a = c AND b = c THEN
PRINT "РАВНЫ"
ELSE
PRINT "НЕ РАВНЫ"
END IF
END

0 0

4 года назад

Выберите лишнее в перечне первых счетных устройств 1. счеты 2.абак 3. калькулятор 4.соробан

ozdunyamiz [22]

Я бы сказала калькулятор, потому что и счеты, и абак(Греция), и соробан (Китай), это устройства для счета.
Ответ упирается только в то, что требуется первые счетные устройства

0 0

4 года назад

Составить программу вычисляющую площадь произвольного треугольника со сторонами a b c в программе pascal

Danalex

Program prog;
uses crt;
var
a,b,c,s,p:real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
write('c = ');
readln(c);

if (a>0) and (b>0) and (c>0) then
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('S = ',s:0:3);
end;
end.

0 0

3 года назад

Информатика PASCAL. Ввести символы с клавиатуры до нажатие enter и посчитать количество цифр в этой последовательности???

Леся101

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
ReadString.Matches('\d').Count.Println
end.

Пример
Сегодня 10.02.2018г., время 23:32
12

0 0

4 года назад

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