Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Тамик999
16.07.2020 07:21 •
Информатика
Пайдаланушы интерфейсі дизайнының қандай түрін білесіңдер?
👇
Увидеть ответ
Открыть все ответы
Ответ:
pimkinares
16.07.2020
Program Project1;
var m:array of integer; n, i, summ:integer;
begin
repeat
write('n: '); readln(n);
SetLength(m, Length(m)+1);
m[Length(m)-1]:=n;
until n=0;
SetLength(m, Length(m)-1);
n:=0; summ:=0;
for i:=0 to Length(m)-1 do begin
if m[i]>12 then begin
inc(n);
inc(summ, m[i]);
end;
end;
Writeln('Result:=', summ/n);
readln;
end.
2)
program Project1;
var n, t, res: integer;
begin
write('N:=');readln(n);
res:=1;
while n>0 do begin
t:=(n mod 10);
if t<4 then res:=res*t;
n:=n div 10;
end;
writeln('Result:=', res);
readln;
end.
4,5
(7 оценок)
Ответ:
wwwnikitafakh
16.07.2020
Var
i,j:integer;
begin
Write(' ');
for i:=1 to 9 do Write(' ',i,' ');
Writeln;
Writeln('------------------------------');
for i:=1 to 9 do begin
Write(i:2);
for j:=1 to 9 do Write(i*j:3);
Writeln
end
end.
Тестовое решение:
1 2 3 4 5 6 7 8 9
------------------------------
1 1 2 3 4 5 6 7 8 9
2 2 4 6 8 10 12 14 16 18
3 3 6 9 12 15 18 21 24 27
4 4 8 12 16 20 24 28 32 36
5 5 10 15 20 25 30 35 40 45
6 6 12 18 24 30 36 42 48 54
7 7 14 21 28 35 42 49 56 63
8 8 16 24 32 40 48 56 64 72
9 9 18 27 36 45 54 63 72 81
Замечание: поскольку тут шрифт не при к поддержке формата компьютерных выдач, во вложении дана истинная картинка.
4,8
(94 оценок)
Это интересно:
07.06.2020
Как перестать сомневаться: 10 простых шагов...
П
Питомцы-и-животные
04.01.2023
Как растить котят: основные правила и советы...
М
Мир-работы
31.01.2020
Как собрать детскую кроватку: подробная инструкция...
С
Стиль-и-уход-за-собой
13.10.2021
Как изменить стиль исходя из вашего бюджета...
О
Образование-и-коммуникации
23.09.2021
Как построить гистограмму: подробное руководство...
К
Компьютеры-и-электроника
25.01.2020
Простой способ сохранить вложение на компьютер...
В
Взаимоотношения
21.11.2020
Страх перед длинными словами: как правильно произносить сложные термины?...
С
Семейная-жизнь
27.01.2022
Как подростку справиться с потерей отца: советы от психологов...
В
Взаимоотношения
23.02.2021
Как ответить тому, кто ненавидит вас: советы психологов...
20.12.2022
Как поцеловать девушку в кино (для учеников средней школы)...
Новые ответы от MOGZ: Информатика
arlettmark
19.06.2020
Сгенератора случайных чисел на интервале от 0 до 100 получите целочисленный массив состоящий из 20 элементов...
nastafil30
14.03.2022
Программирование отобразите на экране c раз число d в строку. числа c и d простые и вводятся с клавиатуры...
aibarealmadrid
05.04.2023
Напишите программу, которая считывает с клавиатуры строку s и определяет, встречаются ли в строке s слова палиндромы. словом считается последовательность символов, ограниченная проьелами,...
joom3
05.04.2023
Выбери устройства создавать графические и текстовые электронные документы соедини стрелками по смыслу сканер, клавиатура,микрофон, планшет, мышь....
СиэльФантом
19.02.2023
Тема массивы. программа visual basic. даны целые положительные числа а1, а2, an. найти среди них те, которые являются квадратами некоторого числа m....
Дурень228
18.01.2021
Написать конспект на тему цифровые носители информации. дам 5звезд...
dilyakon
07.12.2022
какие панорамы обеспечивают не только полный обзор вокруг нас, но и позволяют снимать вверх и вниз только быстро...
Anna14124
22.10.2022
Можете Это по информатике там упражнение на фото....
gjkbyf1984
14.12.2020
Исполнителя удвоитель две команды, которым присвоены номера: 1. прибавь 1, 2. умножь на 3. первая из них увеличивает число на экране на 1, вторая утраивает его. например, 1222 — это...
kristinka140320
14.12.2020
Дано натуральное число вычислить y=2*4*)...
MOGZ ответил
Туристы в первы день кг что састовило восьмую часть их маршута. скоько километроим...
Число протонов,нейтронов и электронов в атоме берилия...
Сколько будет семь пятнадцатых минус одну пятую...
Содного участка собрали 27 мешков лука, а с другого 21. со второго участка собрали...
Отзыв на рассказ гоголя ,,ночь перед рождеством !...
Який об єм хлору знадобиться для повного хлорування метану об ємом 30 літрів?...
Почему простой народ в греции называли демосом...
Cредняя скорость бегуна 8 м/c. какой длины путь преодолеет бегун за 20 секунд?...
Какой объем углекислого газа выделится при взаимодействии 120 г карбоната кальция...
Моё восприятия повести н. в. гоголя тарас бульба...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
var m:array of integer; n, i, summ:integer;
begin
repeat
write('n: '); readln(n);
SetLength(m, Length(m)+1);
m[Length(m)-1]:=n;
until n=0;
SetLength(m, Length(m)-1);
n:=0; summ:=0;
for i:=0 to Length(m)-1 do begin
if m[i]>12 then begin
inc(n);
inc(summ, m[i]);
end;
end;
Writeln('Result:=', summ/n);
readln;
end.
2)
program Project1;
var n, t, res: integer;
begin
write('N:=');readln(n);
res:=1;
while n>0 do begin
t:=(n mod 10);
if t<4 then res:=res*t;
n:=n div 10;
end;
writeln('Result:=', res);
readln;
end.