Анна Марина1873
?>

Создайте программу которая по введенному к - количество грибов выводит фразу мы нашли в лесу к грибов

Информатика

Ответы

kareeva

program griby;

var k: integer;

begin

readln (k);

writeln ('Мы нашли в лесу',k,' ', ' грибов');

end.

shalashcoffee

ответ: попробуй  

объяснение:

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;

}

irinalav2705745

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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Создайте программу которая по введенному к - количество грибов выводит фразу мы нашли в лесу к грибов
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

alaevluka77
lobutev
ЕленаАлександровна381
tatry2005
polariskirov
Абдулганиева Сергей
Николаевич
Shikhova-Vitalii1290
Nurislamovna1543
Yeliseeva Verevkin864
Лусине_Ильенков134
Сколько в 2.77 гигабайтов килобайтов
siyaniemoskva
Платон Демцун
marketing601
Sashagleb19