ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
   
 
 
Опции темы Поиск в этой теме Опции просмотра

  #10  
Старый 15.01.2010, 14:27
Вася Рогов
Новичок
Регистрация: 06.07.2009
Сообщений: 18
Провел на форуме:
42940

Репутация: 0
Отправить сообщение для Вася Рогов с помощью ICQ
Wink

2tw1ns: Первый вариант, Вторая и Третья Задачи (потратил около трёх минут, там и по коду это видно).
Цитата:
const
x = 0.5;
var
y, min, max : real;
begin
min:=-5;
max:=5;

while min<>max do
begin
y:=sin(min)+2*cos(min);
writeln(y:2:2);
min:=min+x;
end;

readln
end.
Цитата:

const
max = 100;
var
mas : array [1..max] of integer;
x, y : integer;
begin
randomize;

for x:=1 to max do mas[x]:=random(100);

for x:=2 to max do if mas[1]<mas(x) then inc(y);

writeln(y);
end.
Слишком легкие задачи, чтобы помогать. Если ты и эти решить не можешь..... то ..... хз) Плохо дело, короче.

Последний раз редактировалось Вася Рогов; 15.01.2010 в 14:45.. Причина: оОо
 
Ответить с цитированием
 



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сюда выкладываем все проги для фрикринга мобильников, которых знаем! nigger Сотовый фрикинг 5 11.04.2009 11:15
Американским студентам запретили пользоваться Skype KPOT_f!nd Мировые новости 1 28.09.2006 03:47
Любителям квестов сюда!! FoX's Болталка 10 25.01.2005 20:42



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ