Паскаль!
10-11 класс
|
5. Дано трехзначное число. Кратна ли сумма его цифр семи?
8. Дано три натуральных числа x, y, z. Вычислить количество чисел меньших 50.
8.
var x,y,z,k:integer;
begin
k:=0;
read (x,y,z);
if (x>=1) and (y>=1) and (z>=1) then
begin
if (x<50) then k:=k+1;
if (y<50) then k:=k+1;
if (z<50) then k:=k+1;
writeln (k);
end else
writeln ('Вы ввели не натуральные числа');
end.
Другие вопросы из категории
2)Что обозначает слово кодирование-
3)Что обозначает слов декодирование-
сентября температура была 15
3 сентября температура была 16
4 сентября температура была 19
2) найди наибольший элемент одномерного массива
3) найти произведение элементов массива целых чисел от 1 до N, которые кратны 9
4) найти сумму чисел, имеющие нечетные номера
5) найти сумму наименьшего и наибольшего элементов массива
И ЭТО ВСЕ В ПАСКАЛЕ!!!!!!!
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
constructor и destructor и для чего нужна?
4) Что такое implementation и для чего нужна?
5) Назовите модули Паскаль ( в строке Uses, например crt) и какие возможности этот модуль дает?
6) Что за тип переменной: указательный (Pointer)
7) И на последок: что означает символ @ , #, $ , ^
б)y=x^15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
Вот код Паскаль:
var
f:array[1..500] of record
fam:string;
bal:boolean;
end;
buf:boolean;
str:string;