Четверг, 28.03.2024, 17:02
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: ignorer, PASCAL26, atvrider  
Форум » Решение задач по информатике » Другие задания » Решите задачи,ваще ноль в программировании(((пожалуйста...
Решите задачи,ваще ноль в программировании(((пожалуйста...
YURKA79Дата: Понедельник, 02.05.2011, 09:20 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Задача 1. В многозначном положительном вещественном числе найти все цифры и выдать на печать одинаковые,
если они есть,если же их нет,то сообщить об этом.Количество цифр в числе любое.

Задача 2.
Составить программу полсчета и выдачи количества некратных "Пифогоровых троек"(чисел вида a^2+b^2=c^2)
в каждой из первых 10 сотен.В какой из таких троек наименьшее число?

Задача 3.
В прямоугольный треугольник с катетами a и b вписан квадрат таким образом,
что две его вершины находятся на гипотенузе,а две другие на катетах.
Определить радиус окружности,вписанной в этот квадрат

 
Developer1Дата: Среда, 04.05.2011, 13:10 | Сообщение # 2
Подполковник
Группа: Заблокированные
Сообщений: 24
[ 0 ]
Статус: Offline
Могу выполнить без проблем
icq: 588002847
email: flash_1989@ukr.net
skype: rfhfcerf
 
KOT_B_MEIIIKEДата: Среда, 04.05.2011, 20:06 | Сообщение # 3
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
program n1;
var t:array [0..9] of integer;i:integer;notpov:boolean;n:longint;
begin
writeln('Vvedite chislo:');read(n);
notpov:=true;
while n>0 do
begin
i:=n mod 10;
t[i]:=t[i]+1;
n:=n div 10
end;
for i:=0 to 9 do
begin
if t[i]>=2 then writeln('number ',i,' povtoryaetsya');
if t[i]>=2 then notpov:=false
end;
if notpov then writeln('V chisle net povtor cifr');
end.
 
Форум » Решение задач по информатике » Другие задания » Решите задачи,ваще ноль в программировании(((пожалуйста...
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2024