4 года назад

Ввести с клавиатуры строку содердащую буквы и цыфры.Программа должна выбрать из этой строки цифры и создать новую строку

1 ответ:

0 0

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

begin
var t:= ReadlnString('Введите строку').Where(i -> (i >= '0')and(i <= '9')).JoinIntoString('');
Write('Строка чисел: ');
t.Println();
end.

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

Постройте таблицу истинности для следующего логического выражения (BvC) v (A&C)

Evgenija Kostenko

Вот, держи, извини за качество

0 0

4 года назад

1. В Паскале: Ввести три целых величины А, В и С . Если абсолютное значение их суммы > 3, то уменьшить каждую величину на 1,

alice2002

1.
Var
a,b,c:integer;
Begin
Write('Введите а, в, с: ');
Readln(a,b,c);
if abs(a+b+c)>3 then write('Их абсолютное значение суммы больше трёх. Уменьшаю на 1 каждое число - ',a,'-1 = ',a-1,', ',b,'-1 = ',b-1,', ',c,'-1 = ',c-1) else write('Их абсолютное значение суммы не превышает трёх. Показываю квадраты этих чисел - ',a,'^2 = ',sqr(a),', ',b,'^2 = ',sqr(b),', ',c,'^2 = ',sqr(c));
End.

2.
Var r,a:integer;
Begin
Write('Введите радиус круга ');
Readln(r);
Write('Введите сторону квадрата ');
Readln(a);
writeln('S круга = ',sqr(r)*pi,', S квадрата = ',sqr(a));
if (sqr(r)*pi) > (sqr(a)) then write('S круга больше, чем S квадрата') else if (sqr(r)*pi) < (sqr(a)) then write('S квадрата больше, чем S круга') Else write('S круга = S квадрата');
End.

0 0

2 года назад

Запишите на языке Паскаль программу, которая вычисляет сумму кодов букв в слове '' память''.

Александр Зрячкин [49]

Var i,s:integer; st:string;
begin
st:='память';
s:=0;
for i:=1 to length(st) do s:=s+ord(st[i]);
writeln('s = ',s);
end.

0 0

4 года назад

Напишите программу. С начала суток прошло N секунд (N - целое). Найти количество полных часов, минут, секунд, прошедших с начала

Мотрен [50]

#include <iostream>
using namespace std;

int main () {
int n;
cin >> n;
cout << n / 3600 << " ч ";
n -= (n / 3600) * 3600;
cout << n / 60 << " мин ";
n -= (n / 60) * 60;
cout << n << " сек ";
return 0;
}

0 0

4 года назад

В языке запросов поискового сервера для обозначения логической операции «ИЛИ» используется символ «|», а дл

shadow888

По запросу Мороз - 1100 страниц.

0 0

4 года назад