Написать программы!!! Задание на фото
10-11 класс
|
Успел написать только 2.
Код Pascal
1. Задание
1 uses crt;
2 var n,a,b:longint;
3 f:boolean;
4 begin
5 clrscr;
6 write('Введите натуральное число до 1000000 n=');
7 readln(n);
8 a:=n mod 10;
9 n:=n div 10;
10 f:=true;
11 while(n>0)and f do
12 begin
13 b:=n mod 10;
14 if b<a then f:=false
15 else n:=n div 10
16 end;
17 if f then write('Цифры справа налево образуют неубывающую последовательность')
18 else write('Цифры справа налево не образуют неубывающую последовательность');
19 readln
20 end.
2. Задание
1 read(n, m);
2 ans := 0;
3 for i := n downto 1 do
4 ans := sqrt(i*m + ans);
5 writeln(ans:0:6);
PS(Цифры перед программной строкой это номер строки, не забудь в паскеле вбить)
Тебе Pascal? Илил Delphi?
Другие вопросы из категории
Каждый такой пароль в компьютерной программе записывается минимально возможным и одинаковым целым количеством байт (при этом используют посимвольное кодирование и все символы кодируются одинаковым и минимально возможным количеством бит). Определите объём памяти, отводимый этой программой для записи 25 паролей.
1) 150 байт 2) 175 байт 3) 200 байт 4) 225 байт
через pascal ABC и опишите программу
варианты ответов
А) 01010101
В) 00110010
С) 00011101
Д) 11001100
Е) 10101010
Читайте также
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
2. Составить задание на разработку программы на разветвляющиеся структуры в QBASIC
3. Составить задание на разработку программы циклической структуры в QBASIC
Нужно задание + сама программа
1) С клавиатуры вводится 2 числа - целое и вещественное. Программа выводит их сумму на экран.
2) Написать процедуру, которая умножает число типа int на число типа float на число типа double и выводит результат на экран
3) Написать процедуру, которая будет выводить любой текст, являющийся ее аргументом
4) С клавиатуры вводится 5 символов поочередно, программа выводит на экран акроним к слову которая образует эти 5 символов
число рядов. Написать программу подсчета мест в кинотеатре «Оскар», в соответствии со схемой кинотеатра, представленной ниже. На экран вывести итоговое количество мест.(вложение - 1 рисунок)
Программа 6. Найти значение выражения для вводимых с клавиатуры А, В и С. при А=4, В=2, С=5.(вложение - формула)
Программа 7. Написать программу, вычисляющую значения логического выражения . На экран вывести это значение.
Программа 8. Пользователь вводит число 0,515625. Написать программу, которая в точности повторяет алгоритм перевода данного числа из десятичной системы счисления в четверичную. На экран вывести окончательный результат.