Программирование а Паскаль!!! СРОЧНО
5-9 класс
|
Убрать из числа все четные цифры!!!
var
i:integer;
s,x:string;
begin
write('Введите число: ');
readln(s);
for i:=1 to length(s) do
if StrToInt(s[i])mod 2=1 then x:=x+s[i];
writeln(x);
end.
Другие вопросы из категории
1. Прослушайте сообщение!
2. Делайте утреннюю зарядку!
3. Назовите устройства ввода\вывода информации.
4. Париж-столица Англии
5. Число 11 является простым
6. 4+5=10
7. Без труда не вытащишь рыбку из пруда
8. Некоторые медведи живут на севере
9. Все медведи-бурые
Читайте также
min,max:integer; begin ClrScr; randomize; writeln('Исходный массив:'); for i:=1 to Nmax do begin m[i]:=random(20)-10; write(m[i],' '); end; max:=m[1]; min:=m[1]; i_min:=1; i_max:=1; for i:=1 to Nmax do begin if m[i]>max then begin max:=m[i]; i_max:=i; end; if m[i]
Команда Ливерпуля
выиграла футбольный матч у команды Ковентри со счетом A:B. Выведите результат матча в виде: Ливерпуль 4 Ковентри 1. Осуществите запрос A и B.
написать программу, которая вычисляет среднее арифметическое ненулевых элементов массива M[1..100], элементы которого вычисляются по формуле M[i]=sin(i)*cos(i)
и прошу не используйте интернет, а напишите сами по возможности.