Предмет: Информатика,
автор: milushaprincess
На языке паскаль:
1. Проверить, делится ли произведение пяти натуральных чисел на первое из них нацело. 2.Определите количество двузначных чисел, сумма квадратов цифр которых делится без остатка на 15.
Ответы
Автор ответа:
0
1.
uses crt;
var a,b,c,d,e,f:integer;
begin
writeln ('vvedite 5 chisel');
read (a,b,c,d,e);
f:=a*b*c*d*e ;
if (f mod a)=0
then writeln ('delitsa')
else writeln ('nedelitsa');
end.
По поводу второй, не уверен, если под суммой квадратов цифр подразумевается 10 = 1*1+0*0, то эта программа неправильна, её нужно переписать будет.
uses crt;
var a,i,s,t,t1:integer;
begin
for i:=10 to 99 do begin
t:=i div 10; t1:=i mod 10 ;
if (sqr(t)+sqr(t1)) mod 15 = 0
then s:=s+1;
end;
writeln (s);
end.
uses crt;
var a,b,c,d,e,f:integer;
begin
writeln ('vvedite 5 chisel');
read (a,b,c,d,e);
f:=a*b*c*d*e ;
if (f mod a)=0
then writeln ('delitsa')
else writeln ('nedelitsa');
end.
По поводу второй, не уверен, если под суммой квадратов цифр подразумевается 10 = 1*1+0*0, то эта программа неправильна, её нужно переписать будет.
uses crt;
var a,i,s,t,t1:integer;
begin
for i:=10 to 99 do begin
t:=i div 10; t1:=i mod 10 ;
if (sqr(t)+sqr(t1)) mod 15 = 0
then s:=s+1;
end;
writeln (s);
end.
Автор ответа:
0
над второй я еще подумаю,а первую уже решила,но все равно спасибо
Автор ответа:
0
Вторую сейчас решу так, как думаю :)
Похожие вопросы
Предмет: История,
автор: mihalkinazina
Предмет: Другие предметы,
автор: vik181011
Предмет: Математика,
автор: epifanovyura228
Предмет: Математика,
автор: jondo
Предмет: История,
автор: Беz0бразный