<span>1.В Первую мировую войну впервые применили химическое оружие.
Во Великой Отечественной войне победу одержал Советский Союз. 2.У кошки четыре ноги.
Плоские черви - паразиты.
3. Всякий равносторонний треугольник есть равноугольный треугольник.
Прямоугольник с равными сторонами есть квадрат.
4.Русский язык - один из славянских языков.
Пунктуация изучает знаки препинания.
5. Пушкин - великий русский поэт.
Достоевский - один из популярных писателей.
6. Информатика жиздется на математике.
Компьютер облегчил жизнь человека.</span>

0 0

4 года назад

Пожалуйста помогите "написать программу с использованием подпрограммы для вычисления суммы s=1+3+5..+a" (ПАСКАЛЬ)

mrkudesnik [35]

var a:integer;

function SumN (n:integer):integer;

var

i,sum:integer;

begin

i:=1;

sum:=0;

while i<=n do

begin

sum:=sum+i;

i:=i+2;

end;

if n mod 2 = 0 then sum:=sum+n;

sumN:=sum;

end;

begin

readln(a);

writeln('Сумма нечётных до "a"(вкулючая в сумму "a", даже если оно чётное): ',sumN(a));

end.

0 0

3 года назад

Даны два числа если их сумма больше 10 то вывести на экран их произведение а иначе вывести их разность

error6662007

===== PascalABC.NET =====

begin

var (a,b) := ReadReal2('Введи a и b:');

if a + b > 10 then

Print(a * b)

else

Print(a - b)

end.

0 0

3 года назад