Помогите пожалуйста решить задачу в pascal ABC. Задача: Составьте программу, утраивающую каждую букву в заданной строке.
5-9 класс
|
var s,ns:string; i:integer;
begin
write('Введите строку символов: '); readln(s);
ns:='';
for i:=1 to length(s) do ns:=ns+s[i]+s[i]+s[i];
writeln('Новая строка: ',ns);
end.
Другие вопросы из категории
желтый.
2). Выбрать инструмент Овал и настроить его на 3-й режим заполнения.
3). Удерживая {Shift}, нарисовать круг.
4). Выбрать инструмент Линия и настроить его на рисование самых жирных линий.
5). Удерживая клавишу {Shift}, изобразить отрезки, выходящие из центра желтого круга.
На экране будет нарисовано:
Предложите другую последовательность изображения этого же объекта:
последовательности чисел 3, 1, 8, 2, 6 все числа больше 5 разделить на 2 а затем удалить из полученной последовательности все чётные чилса ". выполнив указанные в сообщении действия сергей получил код для замка.
Читайте также
1. Чему равны значения переменных r, a, d?
a:=5; b:=20; c:=-7;
d:=2.5;
r := a+(4*b+c)*d;
a:= a+4;
d:=a*7;
2. В пяти тестовых опросах мальчик получил оценки. Составьте программу, которая определит среднее значение оценок, полученных мальчиком в пяти опросах.
3*. Задача. «Покупка в магазине»
Человек делает в магазине покупки. Определите сколько денег у него останется после покупки в магазине перчаток стоимостью А руб., портфеля стоимостью B руб. и галстука стоимостью D руб. Все исходные данные задаются с клавиатуры.
Исходные данные.
a — стоимость перчаток;
b — стоимость портфеля;
d — стоимость галстука;
dengi — количество денег у человека.
Все эти переменные будут вещественного типа.
Результат.
ostatok — количество денег, которое останется у человек (вещественный тип).
Метод решения.
ostatok = dengi – a – b – d
Написать программу, реализующую данную задачу
Помогите пожалуйсто решить очень срочно!!!!!!
СУММЕ КУБОВ ЕГО ЦИФР. Помогите, пожалуйста
второе задание ну или хотя бы только первое .Это вопрос жизни и смерти помогите пожалуйста P.S задание во вложениях.заранее спасибо и знайте если вы поможете значит вы самый добрый и отзывчивый человечек!)
A= array[1..n,1..m] of integer;
2. Вставьте пропущенные определения:
… … двумерных массивов каждая строка заключается в дополнительную пару круглых скобок:
const a:mas= ((2,3,1,0),
(1,9,1,3),
(3,5,7,0));
до 20 и вычисляет:
а)сумму нечётных чисел;
б)сумму чисел,кратных 3