ответ: попробуй
объяснение:
void __fastcall tform1: : button1click(tobject *sender)
{
int count = 0;
tstringlist *list = new tstringlist; // г±г®г§г¤г*гґг¬ г±гїгёг±г®гє
list-> loadfromfile("f: \\гљгіг«гјгігёг*\\info.txt");
memo1-> text = list-> text;
list-> delimitedtext = memo1-> text;
memo2-> text = list-> delimitedtext;
for (int i=0; i < list-> count; i++)
{
if ( list-> strings[i].length() < = 4 )
{
count++;
}
}
label1-> caption = inttostr(count);
delete list;
list = null;
}
const flats_per_floor = 3; var n, flat, floor: integer; begin write('n = '); readln(n); writeln('какой номер квартиры нужен человеку? '); readln(flat); floor : = (flat - 1) div flats_per_floor + 1; if (floor > n) or (flat < = 0) then begin writeln('неверный номер квартиры'); exit; end; if (floor mod 2 = 1) then writeln('едем на ', floor, ' этаж') else writeln('едем на ', floor - 1, ' этаж'); end.
Поделитесь своими знаниями, ответьте на вопрос:
Создайте программу которая по введенному к - количество грибов выводит фразу мы нашли в лесу к грибов
program griby;
var k: integer;
begin
readln (k);
writeln ('Мы нашли в лесу',k,' ', ' грибов');
end.