помогите решить 3 задачина паскале абс.нет . Тему только начали, все легко, от этого зависит моя оценка в четверти, дам 35 пкт
5-9 класс
|
ЗАДАЧА 1
var a,i:integer;
begin
readln(a);
for i:=2 to a-1 do
if a mod i=0 then
write(i,' ');
end.
ЗАДАЧА 2
var
y,a,i:integer;
begin
y:=0;
a:=0;
for i:=1 to 50 do
if i mod 2 = 0 then begin
y:=y+i;
inc(A);
end;
writeln('Сумма= ',y);
writeln('Среднее арифметическое= ',y/a);
end.
в первой задаче единицу выводить надо?
Другие вопросы из категории
(Информатика а не математика)
1)5; 2)16; 3)31; 4)32
а)температура человека;
б)скорость автомашины;
в)площадь страны;
г)название дня недели.
Читайте также
Помогите заполнить таблицу!!! От этого зависит четвертная оценка , прошу помогите !!!
и 2 систему числа:20365,52643,264025
«а». В случае положительного ответа найти порядковый номер первой из них.
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.