Вопрос по информатике:
1. Написать программу, решающую уравнение ax=b. Предусмотреть все варианты для значений a и b.
2. Идет к-ая секунда суток. Определить, сколько целых часов и целых минут прошло с начала суток. На экран вывести фразу: «It is … hours … minutes».
3. Вводится пятизначное число. Найти сумму цифр этого числа.
Написать программы в паскале.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 09.06.2017 13:20
- Информатика
- remove_red_eye 7571
- thumb_up 66
Ответы и объяснения 1
1.
program simple;
var a,b:integer;
begin
writeln('daite a, b); readln(a,b);
writeln('x = ', b/a); readln;
end;
2.
program day;
var h,hours,minutes:longint;
begin
writeln('daite secundi'); readln(h);
hour:= h div 3600; minutes:=h mod 36000;
if (minutes > 60) or (minutes=60) then
begin
hour:=hour+1;
minutes:=minutes-60;
end;
writeln('It is 'hours' hours 'minutes' minutes');
readln;
end;
3.
program summaChisla;
var s:string; i,sum: longint; c,cod:integer;
begin
writeln('daite nomer); readln(s);
for i:=1 to length(s) do
begin
val(s[i],c,cod); sum:=sum+c;
end;
writeln('summa :',sum); readln;
end;
;- 09.06.2017 16:33
- thumb_up 16
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.