Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

решите пожалуйста 2 задачи по турбо паскалю

12K
30 ноября 2005 года
fynjy
10 / / 23.11.2005
ЗАДАЧА1..Среди двухзначных чисел найти те,сумма квадратов цифр которых делится на 13.
ЗАДАЧА2.Найти двузначные числа,такие,что если к сумме цифр прибавить квадрат этой суммы,то получится само число.
533
30 ноября 2005 года
Visualex
254 / / 07.01.2005
Цитата:
Originally posted by fynjy
ЗАДАЧА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;
}

12K
30 ноября 2005 года
fynjy
10 / / 23.11.2005
какие то команды больно сложные мы такие ещё типа не проходили, а можите если не трудно решить 1 или 2 задачу какнить по проще как обычные задачи на паскале... спасибо
2.2K
30 ноября 2005 года
123tk
57 / / 28.06.2003
Цитата:
Originally posted by fynjy
какие то команды больно сложные мы такие ещё типа не проходили, а можите если не трудно решить 1 или 2 задачу какнить по проще как обычные задачи на паскале... спасибо


 
Код:
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;
 
Код:
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;
12K
30 ноября 2005 года
fynjy
10 / / 23.11.2005
спасибо огромное выричил брат
72K
25 мая 2011 года
САША...
1 / / 25.05.2011
ввести с клавиатуры произвольную последовательность целых чисел (количество вводимых чисел должно задаваться в ходе диалога с программой) используя для ввода цикл с параметром (for-to-do). отыскать среди чисел последовательности такие, которые кратны 3 и лежат в диапозоне [20, 200], и вычислить их сумму. полученное значение вывести на экран
277
25 мая 2011 года
arrjj
1.7K / / 26.01.2011
Код:
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.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог