Написать программу, которая печатает True или False в зависимости от того, выполняются или нет
10-11 класс
|
заданные условия:
var b: 100..999;
s: word;
x, y, m, n: integer;
begin
writeln('Введите трехзначное число');
readln(b);
s:=(b mod 10)+((b mod 100)div 10)+(b div 100); //сумма цифр трехзначного числа
if sqr(b)=sqr(s)*s then writeln('True')
else writeln('False');
writeln('Введите координаты х и у');
readln(x, y);
writeln('Введите m и n');
readln(m, n);
if (x>m)and(x<n) then writeln('True')
else writeln('False');
end.
Другие вопросы из категории
_______________________
от 15 до 25 ________________________
от -10 до -20 ___________________________
выводит на экран ответ "да" или "нет".
минимально возможного количества бит, одинакового для каждого билета. Какой информационный объем сообщения записанного устройством после того как было продано 40 билетов? 1) 50 байт 2) 55 байт 3) 440 байт 4) 10 000 бит
Читайте также
текст.
3)Написать программу, которая определяет является ли слово палиндромом.
4)Написать программу, определяющую какая из букв а или о встречается в тексте первой.
Помогите хотябы одну пожалуйста))Нужно до завтра!))
на входе и выводит сумму его цифр.
Я написал первую часть программы (без вывода суммы цифр) :
program sg3;
uses crt;
var i,a,k: integer;
begin
clrscr;
write('Введите число: ');
readln(a);
k:=0;
for i:=2 to a div 2 do
if a mod i =0 then k:=k+1;
if k=0 then write('Простое')
else writeln('Составное');
readln;
end.
Допишите пожалуйста код, который бы выводил сумму цифр,Паскаль
в задаче требуется написать программу которая по двум заданным числам находила бы в диапазоне между этими числами все простые числам где простое число которое имеет всего лишь два делителя то есть оно делится на единицу и на само себя и больше оно не на что не делиться например -3 7 11 помогите )) олимпиада по инфе )) даю максимум баллов ))
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива
число рядов. Написать программу подсчета мест в кинотеатре «Оскар», в соответствии со схемой кинотеатра, представленной ниже. На экран вывести итоговое количество мест.(вложение - 1 рисунок)
Программа 6. Найти значение выражения для вводимых с клавиатуры А, В и С. при А=4, В=2, С=5.(вложение - формула)
Программа 7. Написать программу, вычисляющую значения логического выражения . На экран вывести это значение.
Программа 8. Пользователь вводит число 0,515625. Написать программу, которая в точности повторяет алгоритм перевода данного числа из десятичной системы счисления в четверичную. На экран вывести окончательный результат.