iM4T15

var i:integer; rezultatas:integer; begin for i:= 1000 to 9999 do rezultatas:= i div 3; writeln(rezultatas); readln; Readln; end. ar tai galetu buti teisinga formule naudojant pascal?

dekui tau ziauriai :)

c++ irgi tinka :)

nu man siandienai butinai reikia atlikti ja ir taip durnas esu nei bum bum man apie ta informatika, todel ir prasau jusu pagalbos, jus kelis metus dirbantys su ivairiausiomis programomis per kelias min galit isprest sia uzduoti o as niekaip jos neispresiu per diena.

Gavau uzduoti ir nemoku jos isspresti. Uzduotis Zinau kad uzduotis nera sunki, tiesiog nemoku naudotis pascaliu, gal kas galetumete pagelbeti?

,

turbut kuri uzsienieciams, nes is lietuviu nekaska uzsidirbsi

As turiu partneryste su social blade, is mano kanalo perziuru (12-13k) as uzdirbau apie 0.49$ todel galiu patart jums jog taikytumetes i uzsieniecius, nes is lietuviu neuzdirbsit nieko :)