Основы программирования на языке paskal

Записать на языке:

A) если x четное или y четное, то с - это их среднее арифметическое, а иначе с - это остаток от деления x на y.

Б) для k от 1 до 15 найди сумму значений параметра

В) удваивай x пока оно не превысит 100

Г) поменяй значения a и b местами

Question

Информатика

Земфира

30 января, 02:23

Основы программирования на языке paskal

Записать на языке:

A) если x четное или y четное, то с - это их среднее арифметическое, а иначе с - это остаток от деления x на y.

Б) для k от 1 до 15 найди сумму значений параметра

В) удваивай x пока оно не превысит 100

Г) поменяй значения a и b местами

+4

Ответы (1)

Знаете ответ?

Валюся · Answer 1

Var x, y, c, k, i, a, b:integer;

begin

readln (x, y, a, b) ;

If (x mod 2=0) or (y mod 2=0) then

c: = (x+y) div 2

else

c:=x mod y;

For i:=1 to 15 do

k:=k+i;

While x<=100 do

x:=x*2;

a:=a+b;

b:=a-b;

a:=a-b;

Writeln (c,' ', k,' ', x,' ', a,' ', b) ;

end.