ПОМОГИТЕ!!!! блок-схему не надо,только программку!!1.дано двузначное число. найти сумму и произведение его ЦИФР.2.дано двузначное число. вывести число,полученное при перестановке цифр исходного числа.3.дано трехзначное число. и...
ПОМОГИТЕ!!!! блок-схему не надо,только программку!!
1.дано двузначное число. найти сумму и произведение его ЦИФР.
2.дано двузначное число. вывести число,полученное при перестановке цифр исходного числа.
3.дано трехзначное число. используя одну операцию деления нацело,вывести первую цифру данного числа(СОТНИ).
Завтра нужно сдать!!!! ПОЖАЛУЙСТА,плиииизззз!!!
Гость
Ответ(ы) на вопрос:
Гостьэто в паскале?
1. Var a,x,y,s,p:integer;
begin
writeln ('введи двузначное число');
readln (a);
x:=a div 10 mod 10;
y:=a mod 10;
p:=x*y;
s:=x+y;
writeln (сумма цифр равна'',s);
writeln (произведение цифр равна'',p);
end.
2.Var a,x,y:integer;
begin
writeln ('введи двузначное число');
readln (a);
x:=a div 10 mod 10;
y:=a mod 10;
a:=y*10+x;
writeln (a);
end.
3.Var a,x:integer;
begin
writeln ('введи трехзначное число');
readln (a);
x:=a div 100;
writeln (x);
end.
Не нашли ответ?
Похожие вопросы