4 года назад

Написать программу в паскале: определить, четное число или нечетное, если четное - разделить на два и вывести результат на экран

Знания

Информатика

1 ответ:

mykola134 года назад

0 0

Var a : integer;
begin
writeln('Введите число');
read(a);
if (a mod 2 = 0) then a:= a div 2 else a:=a;
writeln(a);
end.

Читайте также

Виразити в бітах : а) 5 байтів б) 100 байтів в) 10Кбайт г) 32 біти

Бес Настя [77]

А)40Кбит
Б)800Кбит
В)81920Кбит
Г) не понял

0 0

4 года назад

Написать программу, которая выводит на экран 20 случайных чисел в диапазоне от -116 до 950

Lorilay [3.2K]

#include <iostream> // для потока ввода/вывода информации
#include <ctime> // для функции time - реальная рандомизация чисел
#include <cstdlib> // для функции system() - заморозка консоли
using namespace std; // пространство имён
int main() {
srand(time(NULL)); // генерируем генератор с помощью seed - взятого в данный момент времени
for (int i = 0; i < 20; i++) { // начало с нуля, до 19, то есть 20 итераций
int N = rand() % 950 - 112; // формула расчёта случайных чисел
cout << N << " ";
}
system("pause"); // заморозка консоли
return 0;
}

<h2>Проверка</h2>

0 0

1 год назад

задать двухмерный массив рандомно

Almaz Gumerov

<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>

begin
var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
end.

<u>Пример</u>
Количество строк и столбцов в массиве: 7 8
*** Исходный массив [7,8] ***
88 9 -44 13 81 97 -65 -20
16 -37 -33 -34 -69 -64 12 -58
-36 -80 -99 61 -59 -86 -18 83
-77 -1 85 -41 -49 -12 43 84
-64 32 36 -85 -18 -42 49 -6
71 -13 28 33 55 -94 12 13
5 -10 -5 -27 23 -37 -48 74
--------------------------------

0 0

4 года назад

Найдите ошибку,ибо выдает он всегда,что спортсмен не проходит,даже если сумма 100,а общее количество 60.!!!В массиве хранится ин

AnnaSantaMaria [28]

Program test;
const m=4;
var a:array[1..m] of byte;
i,k:byte;s:integer;
begin
s:=0;
writeln('Введите информацию о баллах видов спорта');
for i:=1 to m do
begin
write(' ',i,'-й вид спорта:');
readln(a[i]);
s:=s+a[i];
end;
write('Введите общее количество баллов по 10 видам спорта:');
readln(k);
if s>k
then
writeln('Спортсмен проходит в следующий тур')
else
writeln('Спортсмен не проходит в следующий тур');
<span>end. </span>

0 0

4 года назад

Чему равно логическое выражение Av¬A?

gena70

AV(~A)
V-дизъюнкция(максимум)
~A-не А
Максимум из А и (не А)(А может быть только 0 или 1) всегда равен 1.
AV(~A)=1
Ответ:AV(~A)=1

0 0

3 года назад