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

Вычислить количество чисел, кратных 4, на отрезке от 49 до 215. по паскалю!

👇
Ответ:
Darina17821
Darina17821
12.09.2020

Program abc;

var a, b, c:integer;

Begin

a:=0;

c:=4; 

for b:=49 to 215 do

if b/c mod=0 then a:=a+1

write ('Колтчество решений ', a);

end.

 

(паскаль давно не писал, вроде так) 

4,4(49 оценок)
Открыть все ответы
Ответ:
marsianin121
marsianin121
12.09.2020

инструмент для рисования растровых графических редакторов для создания изображения с традиционными методами необходимо выбрать инструмент рисования это могут быть фломастеры кисти красками карандаш и многое другое. существует редакторы jump. графические редакторы это программы для создания редактирования просмотра графических изображений. Ростов графический редактор официальная программа предназначена для создания и обработки изображений подобный программные продукты нашли широкое применение в работе художников-иллюстраторов при подготовке изображений к печати в типографии или фотобумаге или публикации в интернете

4,5(25 оценок)
Ответ:
//прога на Pascal`e
type
  myrec = record
  rost : byte;
  ves : byte;
  end;
var
  mas : array of myrec;
  n, i : byte;
  sumves, sumrost : longint;
begin
write ('Введите кол-во учеников: ');
readln (n);
setLength (mas, n);
  for i:=0 to n-1 do
  begin
  write ('Введите вес ', i+1, '-го ученика: ');
  readln (mas[i].ves);
  inc (sumves, mas[i].ves);
  write ('Введите рост ', i+1, '-го ученика: ');
  readln (mas[i].rost);
  inc (sumrost, mas[i].rost);
  end;

write ('Средний вес учеников: ', sumves / n, '; Средний рост: ', sumrost / n)
end.
4,7(24 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ