1)вычислить сумму цифр натурального числа z, заданного пользователем. (pascal ) 2)создать приложение в delphi, которое выводит двумерный массив случайных чисел в объекте stringgrid , ввести элементы с клавиатуры и посчитать сумму элементов. 3)составить программу табулирования функции y = sin 2x + cos 3x на отрезке [-1,1] с шагом 0,2. ( pascal ) 4)записать в файл последовательного доступа n действительных чисел. вычислить количество компонентов файла кратных трем и вывести на печать. ( pascal ) 5)на языке delphi создать проект «поиск максимального элемента в числовом массиве», массив заполнить случайными числами и предусмотреть возможность просмотра элементов массива в текстовом поле. 6)создать программу, выполняющую следующие действия. после запуска программы пользователь вводит свое имя, например, александр. появляется вопрос: "александр, ты любишь читать? ". если пользователь нажмет на клавишу да, то должна появиться реплика: "молодец! ", если он нажмет на клавишу нет, то появится реплика: "почему же? надо читать". (delphi)

MINIONCHIK17 MINIONCHIK17    1   04.07.2019 19:30    3

Ответы
tshaxzoda tshaxzoda  28.07.2020 11:29
1)
var a, z, s: integer;
begin 
    write('Введите число: '); 
    read(z); 
    a := z; 
    while a > 0 do 
    begin   
        s := s + a mod 10;   
        a := a div 10 
    end; 
    write('Сумма цифр числа ', z, ' = ', s)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика