for i := 1 to 9 do begin
for j := 0 to 9 do begin
if (i*i + j*j) mod 13 = 0 then begin
k := i*10 + j;
// печать k.
end
end;
решите пожалуйста 2 задачи по турбо паскалю
ЗАДАЧА1..Среди двухзначных чисел найти те,сумма квадратов цифр которых делится на 13.
ЗАДАЧА2.Найти двузначные числа,такие,что если к сумме цифр прибавить квадрат этой суммы,то получится само число.
ЗАДАЧА2.Найти двузначные числа,такие,что если к сумме цифр прибавить квадрат этой суммы,то получится само число.
Цитата:
Originally posted by fynjy
ЗАДАЧА1..Среди двухзначных чисел найти те,сумма квадратов цифр которых делится на 13.
ЗАДАЧА2.Найти двузначные числа,такие,что если к сумме цифр прибавить квадрат этой суммы,то получится само число.
ЗАДАЧА1..Среди двухзначных чисел найти те,сумма квадратов цифр которых делится на 13.
ЗАДАЧА2.Найти двузначные числа,такие,что если к сумме цифр прибавить квадрат этой суммы,то получится само число.
Посмотри в этой задаче, я ее на Си решал, тут сумма должна делиться на 13, а произведение на 8...
#include <iostream.h>
#include <conio.h>
#include <stdlib.h>
main()
{
int count=0; //сброс счетчика в ноль
int count_sum=0;
int count_mult=0;
float sum;
float mult;
for (int index = 10; index<100; index++) //цикл двузначных чисел
{
sum=0; //обнуление суммы
mult=0; //обнуление произведения
sum = ((index%10)+(index/10))/13;//сумма деленная на 13
mult = ((index%10)*(index/10))/8; //произведение деленное на 8
if(((index%10)+(index/10))==13) count_sum++;
if((index%10==8)|(index/10==8)) count_mult++;
if((((index%10)+(index/10))==13)&((index%10==8)|(index/10==8))) count++; //счетчик чисел
}
cout<<"sum="<<count_sum<<endl;
cout<<"mult="<<count_mult<<endl;
cout<<"sum & mult="<<count<<endl; //вывод результата на дисплей
getch();//для вывода результата
return 0;
}
какие то команды больно сложные мы такие ещё типа не проходили, а можите если не трудно решить 1 или 2 задачу какнить по проще как обычные задачи на паскале... спасибо
Цитата:
Originally posted by fynjy
какие то команды больно сложные мы такие ещё типа не проходили, а можите если не трудно решить 1 или 2 задачу какнить по проще как обычные задачи на паскале... спасибо
какие то команды больно сложные мы такие ещё типа не проходили, а можите если не трудно решить 1 или 2 задачу какнить по проще как обычные задачи на паскале... спасибо
Код:
Код:
k := 9;
for i := 1 to 9 do begin
for j := 0 to 9 do begin
Inc(k)
if (i + j + 1)*(i + j) = k then
// печать k.
end
end;
for i := 1 to 9 do begin
for j := 0 to 9 do begin
Inc(k)
if (i + j + 1)*(i + j) = k then
// печать k.
end
end;
спасибо огромное выричил брат
ввести с клавиатуры произвольную последовательность целых чисел (количество вводимых чисел должно задаваться в ходе диалога с программой) используя для ввода цикл с параметром (for-to-do). отыскать среди чисел последовательности такие, которые кратны 3 и лежат в диапозоне [20, 200], и вычислить их сумму. полученное значение вывести на экран
Код:
program qwe;
var
i, num, curr, sum: integer;
begin
sum:=0;
write('Input count: ');
readln(num);
for i:=1 to num do
begin
write(i,':');
readln(curr);
if (curr>=20) and (curr<=200) and (curr mod 3 = 0) then sum:=sum+curr;
end;
writeln('Summ:',sum);
end.
var
i, num, curr, sum: integer;
begin
sum:=0;
write('Input count: ');
readln(num);
for i:=1 to num do
begin
write(i,':');
readln(curr);
if (curr>=20) and (curr<=200) and (curr mod 3 = 0) then sum:=sum+curr;
end;
writeln('Summ:',sum);
end.