Информатика | 10 - 11 классы
Определить последнюю цифру заданного целого числа в pascal.
Квадрат заданного трехзначного числа равен кубу суммы цифр этого числа?
Квадрат заданного трехзначного числа равен кубу суммы цифр этого числа.
Free pascal.
Pascal?
Pascal.
Тема : Циклы С клавиатуры вводится целое произвольное число 1) Вывести на экран первую и последнюю цифру числа.
2) Вывести на экран наибольшую цифру числа 3) Вывести на экран нечетные цифры этого числа.
1. Дано целое число А?
1. Дано целое число А.
Определить количество цифр в числе, которые больше 6.
Pascal.
Найдите количество чётных цифр заданного числа по программе pascal?
Найдите количество чётных цифр заданного числа по программе pascal.
Pascal?
Pascal.
Определить, образуют ли цифры числа симметричную последовательность.
. Определите число, полученное выписыванием в обратном порядке цифр заданного целого трёхзначного числа?
. Определите число, полученное выписыванием в обратном порядке цифр заданного целого трёхзначного числа.
Написать программу в которой задано целое число n и выводится каждая его цифра в столбец?
Написать программу в которой задано целое число n и выводится каждая его цифра в столбец.
На ABC.
Pascal.
Дано целое число N?
Дано целое число N.
Определите количество нечётных цифр в данном числе.
(Pascal).
С клавиатуры вводится целое положительное число?
С клавиатуры вводится целое положительное число.
Определить, сколько в этом числе чётных цифр.
(PASCAL).
Дано трехзначное число?
Дано трехзначное число.
Найти число, полученное при перестановке первой и последней
цифр заданного числа.
Pascal.
На этой странице сайта размещен вопрос Определить последнюю цифру заданного целого числа в pascal? из категории Информатика с правильным ответом на него. Уровень сложности вопроса соответствует знаниям учеников 10 - 11 классов. Здесь же находятся ответы по заданному поиску, которые вы найдете с помощью автоматической системы. Одновременно с ответом на ваш вопрос показаны другие, похожие варианты по заданной теме. На этой странице можно обсудить все варианты ответов с другими пользователями сайта и получить от них наиболее полную подсказку.
Var s, t : integer ;
begin
write ('s = ') ; readln(s) ;
if (s> ; - 10) and (s< ; 10)
then writeln ('Число однозначное')
else begin
t : = s mod 10 ;
writeln (abs(t)) ;
end ;
end.