Срочно! Нужно решить задачи в Pascal! Только помогите бесплатно пожалуйста...
1)Уберите из заданного слова все буквы, совпадающие с последней буквой в слове.
2)Заданны имя, фамилия и отчество учащегося (ввод с клавиатуры) разделённые пробелом. Вывести на экран инициалы.
3)Массив (3*3) чисел, Random(40)-5, вывести столбиком и найти сумму чисел в столбиках, которые делятся на 5.
4)Дан двумерный массив из чисел 3*3 (положительных) введённых с клавиатуры, вывести столбиком числа массива, которые больше 20.
Спасибо зарание...
Желательно дать именно решение. Спасибо.
желательно за решение дать немного денюжек)
в столбик сама выведи
4)
for i:= 1 to 3 do
for j:= 1 to 3 do
if mas [ i, j ] > 20 then writeln(' ', mas [ i, j ]);
3)
for i:= 1 to 3 do
for j:= 1 to 3 do
if mas [ i, j ] >0 and mas [ i, j ] mod 5 = 0 then sem := sum +mas [ i, j ];
2) for i := 1 to Length(str) do
if str[ i ] in "A".."Z" then write(str [ i ] );
А с чего мне бесплатно делать чужое (и притом глупое) домашнее задание?