написать программу которая определяет все слова оканчивающиеся на "ая"

торый затем включается в процесс сборки следующих роботов. В сборке участвуют только пары роботов (если у робота нет пары - он простаивает). Рабочий цикл составляет 10 суток; по окончании десятого дня из цеха на склад увозят всех произведенных роботов; в цехе остается число роботов, необходимых для воспроизводства того же количества в следующем десятидневном цикле. Детали для производства роботов подвозят без перебоя. Какое минимальное число роботов надо оставлять в цехе по окончании цикла, чтобы в каждом рабочем цикле производилось не менее 24 роботов?

Ввести с клавиатуры натуральное число.написать программу, которая определяет, кратна ли сумма его цифр 6.

на входе и выводит сумму его цифр.

Я написал первую часть программы (без вывода суммы цифр) :

program sg3;

uses crt;

var i,a,k: integer;

begin

clrscr;

write('Введите число: ');

readln(a);

k:=0;

for i:=2 to a div 2 do

if a mod i =0 then k:=k+1;

if k=0 then write('Простое')

else writeln('Составное');

readln;

end.

Допишите пожалуйста код, который бы выводил сумму цифр,Паскаль

1) С клавиатуры вводится 2 числа - целое и вещественное. Программа выводит их сумму на экран.
2) Написать процедуру, которая умножает число типа int на число типа float на число типа double и выводит результат на экран
3) Написать процедуру, которая будет выводить любой текст, являющийся ее аргументом
4) С клавиатуры вводится 5 символов поочередно, программа выводит на экран акроним к слову которая образует эти 5 символов

в задаче требуется написать программу которая по двум заданным числам находила бы в диапазоне между этими числами все простые числам где простое число которое имеет всего лишь два делителя то есть оно делится на единицу и на само себя и больше оно не на что не делиться например -3 7 11 помогите )) олимпиада по инфе )) даю максимум баллов ))