Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 976 ответов!

Составьте программу, определяющую, является ли последняя цифра введенного целого числа нечетным числом .

5-9 класс

Яна0510 16 сент. 2015 г., 14:52:21 (8 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Алиана23
16 сент. 2015 г., 15:27:13 (8 лет назад)

var a,b: real;beginwrite('vvedite chislo');readln(a);b:=a mod 10;if b mod 2 =0 then write('chislo chetnoe') else write('chislo nechetnoe');readln;end.

Ответить

Другие вопросы из категории

Удалите из следующей программы строку, содержащую ошибку:


Program P26;
{ Ошибка }
var i : interger ;
begin
i : = MaxInt;
writeln(pred(i));
writeln(succ(i));
end.

Помогите пожалуйста, за это 64 бала

2 задание

3072 байтов сколько битов
Задача: Дано три вещественных массива. Определить в каком из них находится самый маленький элемент.

Помогите найти ошибку или покажите решение, спасибо!

uses crt;
var a1:array [1..10] of real;a2:array [1..10] of real;a3:array [1..10] of real;
k1,k2,k3,i:byte;
function min(a:real):real;
var j:byte;
begin
for j:=2 to 10 do
if a[j]<min then min:=a[j];end;
begin clrscr;
for i:=1 to 10 do
read(a1[i]:3);writeln;
read(a2[i]:3);writeln;
read(a3[i]:3);writeln;
k1:=min(a1);k2:=min(a1);k3:=min(a1);
if (k1<k2) and (k1<k3) then writeln('В первом массиве');
if (k2<k1) and (k2<k3) then writeln('Во втором массиве');
if (k3<k1) and (k3<k2) then writeln('В третьем массиве');
readkey;
end.

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

Составить программу, определяющую, является ли данное утверждение истинным:Двузначное число А начинается на 3

Составить программу, определяющую, является ли данное утверждение истинным:Ровно одно из чисел А и В не превышает 100



Вы находитесь на странице вопроса "Составьте программу, определяющую, является ли последняя цифра введенного целого числа нечетным числом .", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.