FPS programavimas

niekaip nesigauna ispresti siu uzdavinuku, gal atsiarstu galinciu padeti?... buciau labai dekinga :]

1. parasykite programa kurioje kintamajam v butu priskirta a(kvadratu reiksme) jei skacius a nelyginis arba skaiciaus a (kubu) kai a lyginis

2.sukurkite programa atspausdinancia dvieju ivestu skaiciu tarpusavio dalybos liekanas tokiu pavidalu 6mod4=0 ir 4mod6=0 jei nors vienas is ivestu skaiciu =0 programa turi spausdinti pranesima dalinti is 0 negalime

Jei dėkinga, tai visada prašom :D

1. parasykite programa kurioje kintamajam v butu priskirta a(kvadratu reiksme) jei skacius a nelyginis arba skaiciaus a (kubu) kai a lyginis

if a mod 2 = 0 // ar lyginis?
then v := a*a*a  
else v := a*a;

2.sukurkite programa atspausdinancia dvieju ivestu skaiciu tarpusavio dalybos liekanas tokiu pavidalu 6mod4=0 ir 4mod6=0 jei nors vienas is ivestu skaiciu =0 programa turi spausdinti pranesima dalinti is 0 negalime

cia butu kazkas tokio

read (a, b);
if (a=0) or (b=0) 
then writeLn ('dalinti is nulio negamila)
else 
begin
 liek1 := a mod b;
 writeLn (a, 'mod', b, '=', liek1);

 liek2 := b mod a;
 writeLn (b, 'mod', a, '=', liek2);
end;

tikrai aciu, jau aiskiau daros :)

Gal kas galetu padeti su paskaliu, buciau labai dekingas.

Krepsinio kamuolio skersmuo D.Turime daug deziu,kuriu vidaus aukstis,plotis ir ilgis zinomi.Reikia nustatyti,keliose is deziu telpa tas kamuolys

padekit ispresti kasnors