Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
tynvik
18.05.2020 04:01 •
Информатика
Как нарисовать флаг Норвегии в паскале ABC?
👇
Увидеть ответ
Открыть все ответы
Ответ:
larjon
18.05.2020
Const
problems : array [0..9] of String = ('x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10','x1+5=10', 'x1+5=10', 'x1+5=10');
answers : array [0..9] of String = ('-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5');
var
countOfAnswers, counter: integer;
userAnswer: String;
begin
countOfAnswers := 0;
for counter:=0 to 9 do
begin
write('Введите ответ уравнения ', problems[counter], ' : ');
readln(userAnswer);
if userAnswer = answers[counter] then Inc(countOfAnswers);
end;
if countOfAnswers > 8 then writeln('Отлично')
else if countOfAnswers > 5 then writeln('Хорошо')
else writeln('Плохо');
end.
4,4
(82 оценок)
Ответ:
magicufoshowp08hm1
18.05.2020
#include "stdafx.h"
#include <stdio.h>
#include <windows.h>
int main()
{
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
int const n=3;
int mas[n][n];
int sum1, sum2;
bool magik;
for (int i=0; i<n; i++)
for (int j=0; j<n; j++)
{
printf("mas[%d][%d] = ", i+1, j+1);
scanf("%d",&mas[ i ][ j ]);
}
printf("\nВведенная матрица:\n");
for (int i=0; i<n; i++)
{
for (int j=0; j<n; j++)
{
printf("%d ",mas[ i ][ j ]);
}
printf("\n");
}
sum1=0;
sum2=0;
for (int i = 0; i<n; i++)
{
sum1 += mas[ i ][ i ];
sum2 += mas[ i ][ n-1-i ];
}
printf("Сумма главной диагонали = %d\n", sum1);
printf("Сумма побочной диагонали = %d\n", sum2);
magik = true;
for (int i=0; i<n; i++)
{
if (sum1==sum2)
{
sum2=0;
for (int j=0; j<n; j++)
{
sum2 += mas[ i ][ j ];
}
} else { magik=false; break; }
}
if (magik==true)
{
for (int i=0; i<n; i++)
{
if (sum1==sum2)
{
sum2=0;
for (int j=0; j<n; j++)
{
sum2 += mas[ j ][ i ];
}
}
else { magik=false; break; }
}
}
if (magik==true)
printf("\nМатрица является магическим квадратом\n");
else
printf("\nМатрица не является магическим квадратом\n");
system("pause");
return 0;
}
4,4
(40 оценок)
Это интересно:
Х
Хобби-и-рукоделие
07.03.2023
Как играть в Колонизаторов...
К
Кулинария-и-гостеприимство
04.02.2023
Как приготовить фасоль пинто: пошаговый рецепт и полезные советы...
О
Образование-и-коммуникации
17.11.2022
Как стать самым уверенным учеником в школе?...
В
Взаимоотношения
05.02.2021
Как найти себе девушку в интернете: советы от экспертов...
З
Здоровье
01.02.2021
Как стать стройным естественным путем: советы от эксперта...
К
Компьютеры-и-электроника
10.03.2023
Как сделать снимок в Windows Live Movie Maker: подробное руководство...
К
Компьютеры-и-электроника
28.05.2023
Как создать ISO файл в Linux: шаг за шагом руководство...
08.02.2021
Как найти счастье и любить себя, когда жизнь кажется трудной и неподатливой?...
О
Образование-и-коммуникации
11.07.2021
Как помочь спасти окружающую среду...
З
Здоровье
01.10.2022
Как определить доминирующий глаз...
Новые ответы от MOGZ: Информатика
АрТёМкА945
16.01.2021
Документом можно назвать свидетельство о рождении...
saitovdamir20Damit
16.01.2021
Составить программу, которая по номеру месяца, введенного с клавиатуры, выводит количество дней в нем. составить программу, которая после введенного с клавиатуры числа (в диапазоне...
YULEMESLEILAA
23.05.2023
Во 2 задании не использовать inc...
Milki0Way0
02.02.2020
Y={x^2+x+41, при 0 или равно х или равно 40 {lx^3-2xl в др.случаях...
khorolovgusenoy2lzx
27.02.2021
Какой объем озу требуется для хранения текста статьи объемом 4 страниц, на каждом из которых размещено 32 строки по 64 символа в строке (в кодировке unicod)? ответ необходимо дать...
ufkvkvkg
20.05.2022
Какой обьем озу требуется для хранения текста статьи объемом 40 страниц, на каждой из которых размещено 32 строки по 64 символа в строке(в кодировке unicod)? ответ необходимо дать...
ЛИЗАЛАРИНА
20.05.2022
Переведите эти число: 7ff из шестнадцатеричной системы счисления, в десятичную систему счисления. полным ответом....
salta19
06.12.2020
Структура программы на языке turbo pascal...
DimaKravshenco
28.03.2022
Сформировать целочисленный массив (6*6), заполненный случайным образом числами из промежутка [-50; 50] паскаль!...
Урок541
21.01.2022
1.представьте с использованием диаграммы эйлера-венна соотношение между объёмами понятий четные числа и нечетные числа . 2.построить высказывания на основе предиката второго порядка...
MOGZ ответил
Составить план по языку на тему почему праздник 9 мая священный для нас....
На ферме 120 коров и 121 телёнок для них заготовили силос из расчёса 5636 кг на...
Всоревнованиях по стрельбе участвовали 8 человек. сколько патронов получил каждый...
Лодка путь против течения за 1,4 ч со скоростью 18,6 км/ч. скорость течения была...
Как назывались представители вашего сословия в царском риме...
Поминай как звали. как ветром сдуло в двух шагах и след простыл. водить за нос...
Надо придумать предложение со словами водить за нос,сложить голову,сломать себе...
Надо написать сочинение як стати справжньою людиною (как стать настоящим человеком)...
Внешняя политика николая 1.(годы войн и перемирий)очеь кратко...
10 предложений на тему советы ученику...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
problems : array [0..9] of String = ('x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10','x1+5=10', 'x1+5=10', 'x1+5=10');
answers : array [0..9] of String = ('-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5');
var
countOfAnswers, counter: integer;
userAnswer: String;
begin
countOfAnswers := 0;
for counter:=0 to 9 do
begin
write('Введите ответ уравнения ', problems[counter], ' : ');
readln(userAnswer);
if userAnswer = answers[counter] then Inc(countOfAnswers);
end;
if countOfAnswers > 8 then writeln('Отлично')
else if countOfAnswers > 5 then writeln('Хорошо')
else writeln('Плохо');
end.