Записать на языке pascal следующие фразы: а)даны три числа a,b,c. b)если x четное или y четное,то с-это их среднее арифметическое,а иначе с-это остаток от деления x на y. c)для k от 1 до 15 найди сумму значений параметра. d)удваивай число x,пока оно не превысит 100. e)поменяй значения переменных a и b местами.
Лессикаа
3
25.08.2019 04:30
0
Другие вопросы по теме Информатика
Milki0Way0
23.01.2021 05:32
аня2939
23.01.2021 06:25
natata23081
23.01.2021 06:29
djdjsjsj
23.01.2021 06:35
EvilMorty
09.02.2021 15:34
yanabutko
09.02.2021 15:35
eeeevaa
04.10.2019 08:30
zombdanidani
04.10.2019 08:30
ztv1978
04.10.2019 08:30
Популярные вопросы
- Составьте структурные формулы веществ. какие из них являются изомерами? 1. 3-этил-3-гептен...
1 - Творческая работа создайте текст рекламного буклета к выходу вашей любимой сказки....
1 - Яка маса міді необхідна для реакції з нітратною кислотою для одержання 2,1 л (н.у)...
2 - Короткое сочинение: сказочная о диком животном.для 2 класса...
2 - Выбери чётное число из чисел 645, 536, 891, 111....
2 - Дана аналитическая модель числового промежутка.постройте его модель, запишите...
3 - Выпиши солова в которых есть мягкие согласные в скобках запиши сколько в этих...
1 - 1)в каком предложении не со словом пишется раздельно? выберите один из вариантов...
3 - Выписать 5 (любых) красивых предложений и разобрать по членам предложений. надо...
2 - Какое проверочное слова к слову вычесть нужно...
1
Read(a,b,c)
b)
if (x mod 2 = 0)or(y mod 2 = 0) then c:=(x+y)/2
else c:= x mod y;
c)
S:=0;
For k:= 1 to 15 do
S:=S+k;
d)
While x<=100 do
x:=x*2;
e)
c:=a;
a:=b;
b:=c;