Pascal

program HOZYAIN;

uses crt;

const n=79;

Var

x:array[1..n] of byte;

i,k:byte; c:char;

Begin

clrscr;

for i:=1 to n do

begin

x:=0;

end;

repeat

k:=random(80);

if x[k]=0 then x[k]:=1;

for i:=1 to n do

begin

if x>0 then

begin

gotoxy(i,x);

write(' ');

x:=x+1;

gotoxy(i,x);

write('*');

if x>23 then x:=0;

end;

end;

delay(100);

until keypressed;

end.

ааааааааа меня прет

GodLike! link=topic=253438.msg2027459362#msg2027459362 date=1319469269]

var

a,b,c:longint;

begin

read(a,b,c);

if not(odd(a) and odd(b) and odd©) then writeln(a*b*c);

end.

 

заовнил всех

ход действий таков:

---каждое число делишь на 2, если нет остатка (mod 2=0) заносишь в переменную, и так последующие цифры

----умндожаем

-----???????

-????

profit

а можно расписать чтоб я копипастом в паскаль и готово?

а чем отдашь?

GodLike! link=topic=253438.msg2027459362#msg2027459362 date=1319469269]

var

a,b,c:longint;

begin

read(a,b,c);

if not(odd(a) and odd(b) and odd©) then writeln(a*b*c);

end.

 

заовнил всех

я не знаю что такоеОДД но слово энд уже не правильно

odd - проверка на нечетность, все правильно.

 

program HOZYAIN;

uses crt;

const n=79;

Var

x:array[1..n] of byte;

i,k:byte; c:char;

Begin

clrscr;

for i:=1 to n do

begin

x:=0;

end;

repeat

k:=random(80);

if x[k]=0 then x[k]:=1;

for i:=1 to n do

begin

if x>0 then

begin

gotoxy(i,x);

write(' ');

x:=x+1;

gotoxy(i,x);

write('*');

if x>23 then x:=0;

end;

end;

delay(100);

until keypressed;

end.

 

 

 

 

ааааааааа меня прет

unit Hash;

interface
uses Grids,Dialogs,SysUtils,StdCtrls;
type
   Tkey=integer;
   Tinf=record
      fio:string;
      key:Tkey;
   end;


   Tself=^self;
      self=record
         inf:Tinf;
         a:Tself;
      end;

   mas=array [0..1] of Tself;
   Pmas=^mas;

   THash=class(Tobject)
      n,m:word;
      sp,sp1:Tself;
      H:Pmas;

      constructor create(M0:word);
      procedure add(Inf:Tinf);
      Function read(key:Tkey):tinf;
      function readdel(key:Tkey):tinf;
      procedure printMemo(Memo:Tmemo);
      procedure printSgrid(var sgrid:Tstringgrid);
      destructor free;
   end;



implementation

constructor Thash.create;
var i:word;
begin
   inherited create;
   M:=m0;
   getmem(H,M*4);
   for i:=0 to m-1 do
      h[i]:=nil;
end;




procedure  Thash.add;
var i:word;
begin
   i:=inf.key mod M;
   new(sp);
   inc(n);
   sp.inf:=inf;
   sp.a:=h[i];
   h[i]:=sp;
end;


function Thash.read;
var i:word;
begin
   i:=key mod M;
   sp:=h[i];
   while (sp<>nil) and (sp.inf.key<>key) do
      sp:=sp.a;
   if sp<>nil then result:=sp.inf
   else showmessage('Запись не найдена!');
end;


function Thash.readdel;
var I:word;
begin
   i:=key mod M;
   sp:=h[i];
   sp1:=sp;
   while (sp<>nil) and (sp.inf.key<>key) do
   begin
      sp1:=sp;
      sp:=sp.a;
   end;
   if sp<>nil then
   begin
      result:=sp.inf;
      if sp=sp1 then h[i]:=sp.a
         else sp1.a:=sp.a;
      dispose(sp);
      sp:=nil;
   end
   else showmessage('Запись не найдена!');
end;



procedure Thash.printMemo;
var i:word;
begin
   for i:=0 to m-1 do
   begin
      memo.Lines.Add('H['+inttostr(i)+']:');
      while h[i]<>nil do
      begin
         memo.Lines.Add('ФИО: '+h[i].inf.fio
            +' Номер: '+inttostr(h[i].inf.key));
         h[i]:=h[i].a;
      end;
   end;
end;



procedure Thash.printSgrid;
var i,j:word;
begin
   j:=0;
   for i:=0 to M-1 do
   begin
      sp:=h[i];
      while sp<>nil do
      begin
         inc(j);
         sgrid.Cells[0,j]:=sp.inf.fio;
         sgrid.Cells[1,j]:=inttostr(sp.inf.key);
         sp:=sp.a;
      end;
   end;
end;




destructor Thash.free;
var I,j:word;
begin
   j:=0;
   for i:=0 to M-1 do
      while h[i]<>nil do
      begin
         inc(j);
         sp:=h[i];
         h[i]:=sp.a;
         dispose(sp);
      end;
   freemem(H,4*M);
   inherited free;
end;




end.

овнед 

вот как выглядит эта задача на джаве

import org.apache.MegaUtils;

public class Solution{

  public static v oid main(String[] args){

      MegaUtils.newInstance().reshiLubuyuZadachu(args);

  }

}

элементарно

 

 

program 9typoiyebok;

var a,b,c,d: integer

begin

readln(a,b,c,d);

if a div 2=0 then d:=a*b*c

else if b div 2=0 then d:=a*b*c

else if c div 2=0 then d:=a*b*c

else writeln('xyi tebe');

readln;

end.

a че у еула неправильный тогда штоле?

тоже самое, только я написал для совсем тупых

а ну тогда рот едет к тебе

АХАХАХАХАХ  :petro:

Паскаль, это как С, токо говно

abc pascal 

Паскаль, это как С, токо говно

а С это не говно чтоли?

Паскаль, это как С

а С это не говно чтоли?

ок, фикс

Даны 3 целых числа, если среди них есть четное число, то найти их произведение

 

Напишите пожалуйста ход действия

 

ОТСОСУ

Паскаль, это как С, токо говно

а С это не говно чтоли?

НОНО! Не гнать на С\С++ 

Паскаль, это как С, токо говно

а С это не говно чтоли?

НОНО! Не гнать на С\С++ 

в наше время какие языки используют? 

в наше время какие языки используют? 

сначало отсос 

Паскаль, это как С, токо говно

а С это не говно чтоли?

НОНО! Не гнать на С\С++ 

это все неюзабельное говно, не в обиду.

открою тебе секрет, что на какой бы ты сейчас операционке не сидел, она написана на С\C++  и asm.

Шарп и джава сейчас наиболее популярны для быстрой разработки приложений, но любой крупный проект, особенно если он ресурсоемкий, пишется на С++

очередное подтверждение дегенеративности дотеров