М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Milky0405
Milky0405
08.06.2020 00:19 •  Информатика

Записать на языке pascal следующие фразы: а)даны три числа a,b,c. b)если x четное или y четное,то с-это их среднее арифметическое,а иначе с-это остаток от деления x на y. c)для k от 1 до 15 найди сумму значений параметра. d)удваивай число x,пока оно не превысит 100. e)поменяй значения переменных a и b местами.

👇
Ответ:
5ксюША88881
5ксюША88881
08.06.2020
A)
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;
4,7(35 оценок)
Открыть все ответы
Ответ:
Сериал повествует о жизни круглых персонажей в стране «Смешариков». У каждого героя свой взгляд на вещи, свои увлечения и яркий характер. Ежедневно герои попадают в неожиданные ситуации или создают их сами.В сериале представлены герои трёх возрастных групп — дети-подростки (Крош, Ёжик, Нюша, Бараш), взрослые (Лосяш, Пин), и пожилые (Кар Карыч, Совунья, Копатыч). Главные герои:

Крош

Ёжик

Нюша

Бараш

Совунья

Кар-Карыч

Пин

Копатыч

Лосяш

Панди

Биби

Ну а если посчитать, всего их 77 (это Группы персонажей

Смешарики: основные персонажи (9)

Смешарики: прочие персонажи (34)

Смешарики: искусственно созданные персонажи (11)

Смешарики: вымышленные персонажи (23))

4.?

4,4(92 оценок)
Ответ:
gladiatorcor
gladiatorcor
08.06.2020

program calklin;

uses

 crt;

var

 a, b, x: real;

begin

 textcolor(red);

 gotoxy(10, 5);

 write('Вас приветствует калькулятор решать линейные уравнения');

 gotoxy(10, 6);

 write('Введите а=');

 readln(a);

 gotoxy(10, 7);

 write('Введите b=');

 readln(b);

 gotoxy(10, 8);

 if a = 0

 then

 begin

   gotoxy(10, 9);

   textcolor(red);

   writeln('Нет корней')

 end

 else

 begin

   if a <> 0

   then

   begin

     gotoxy(10, 10);

     textcolor(red);

     x := (-b / a);

     writeln('Уравнение имеет корень и он равен: x =', x, '');

   end;

 end;

end.

4,5(34 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ