Синформатикой. 7 класс. turbo pascal №1: составить программу, которая преобразует введённое с клавиатуры дробное число в денежный формат (12.5 в 12 рублей 50 копеек). a - исходные данные x,y - результаты trunc (12,5)=12 frac (12,5) =0.5 0.5*100=50.0 trunc (50.0)=50 №2: составить программу, вычисляющую сумму цифр трёхзначного числа n. n - трёхзначное число (напр.762) - исходные данные a,b,c - цифры этого числа №3: программа находит из а и в большее. а,b - исходные c - результат №4: с кондитерской фабрики разгружают конфеты в коробках по 10 кг, 5 кг и 1 кг. какое наименьшее количество коробок потребуется для перевозки n килограмм конфет? №5: int(-5,89) int(0,53) round(-5,8) round(5,2) frac(-17,4) frac(0,32) trunc(-17,4) trunc(15,2) 45 div 4 15 mod 8 (489 div 10) mod 10
asfandiyrova201
3
21.05.2019 01:30
2
Другие вопросы по теме Информатика
Ralik89
20.04.2020 22:46
a1b2c5612z
15.06.2019 20:10
елена1810
15.06.2019 20:00
Ler4ic004
20.12.2019 18:53
Nastyaa271
20.12.2019 18:45
Haker2216
20.12.2019 18:45
пирапомарниманин2184
20.12.2019 18:44
hedaku
20.12.2019 18:43
1236811
26.08.2019 14:30
Популярные вопросы
- Найти равноденствующую силу. если силы направлены вдоль одной прямой...
2 - Исследовать и построить график под номером 6.18. Подробно Заранее...
1 - Ақан сері «Қыз сипаты» өлеңі Өлең үзіндісін оқы. Өлең үзіндісінен...
3 - Қан мен тер романынан берілген үш үзіндіге ат қой. Оны дәйектеп айт....
1 - Үлкен жолбойында2кмжергедейінжылдамдықты60км/сағ-танасыруғаболмайтынжолбелгісітұр.Жүргізушібұлжолбөлігін3минуттажүріпөтті.Жүргізушіжолжүрубелгісініңталабын...
2 - Circle the correct verb form. 1 Did you hear? Mary will get / is getting...
2 - Көп орнына сіздерді қой. Қажетті сөздергаңша маңдай, дана, тілі жорға,...
3 - Учитывая функцию y = ½x². а) Зона обнаружения (D / u) б) набор значений...
3 - 5. Решите уравнение:—2,3(5 + 6x) – 19 = -6,5...
1 - Задание 1. Прочитайте текст и выполните задания: По условиям договора,...
3
1)
var
a: real;
x, y: integer;
begin
writeln('Введите дробное число');
readln(a);
x:= trunc(a);
y:= frac(a);
writeln(x, ' рублей ', y * 100, ' копеек');
readln;
end.
2)
var
n: 100..999;
a, b, c: 0..9; //a - сотни, b - десятки, с - единицы
begin
writeln('Введите трехзначное число');
readln(n);
a:= n div 100;
b:= (n mod 100) div 10;
c:= n mod 10;
writeln('Сумма цифр: ', a + b + c);
readln;
end.
3)
var
a, b, c: real;
begin
writeln('Введите числа а и b');
readln(a, b);
if a > b then
begin
c:= a;
writeln(c, ' - большее число');
end;
if b > a then
begin
c:= b;
writeln(c, ' - большее число');
end;
if b = a then writeln('Числа равны');
readln;
end.