В 1вложении ложь.Надеюсь помог.Так что там с репетитором?
Решение на C. Переведи на синтаксис паскаля :)
#include <stdio.h>
int pearCount;
int friendsCount;
int main(int argc, const char * argv[]) {
printf("Количество груш: ");
scanf("%i", &pearCount);
printf("Количество подруг: ");
scanf("%i", &friendsCount);
if (pearCount % friendsCount != 0) {
printf("Количество груш '%i' Количество подруг '%i': нет\n", pearCount, friendsCount);
} else {
printf("Количество груш '%i' Количество подруг '%i': да\n", pearCount, friendsCount);
}
return 0;
}
Const n: array[1..10] Of string = ('один','два','три','четыре','пять',
'шесть','семь','восемь','девять','нуль')
;
Var b,c: string;
i,j: integer;
Begin
b := '1234567890';
Write ('Введите цифру / число : ');
read (c);
For i:=1 To length(c) Do
Begin
j := pos(c[i],b);
write (n[j],' ');
End;
<span>End.</span>
В 1 байте 8 бит, значит 4*8=32бита
Я так понял, должен запуститься цикл и во время итерации при каждом проходе он должен выводить с новой строки то кол-во раз, сколько он выполнился.
var i: integer; {единственная переменная, которая нужна - счетчик}
begin
for i:=0 to 4 do {или нужное кол-во вместо 4}
writeln(i);
end.
Писал без отступов, но здесь и так пара строк. Программа полностью рабочая, но учтите, что счет ведется от 0 и цикл в примере повторится не 4, а 5 раз. На выходе будет:
0
1
2
3
4
Если хотите начинать с 1 - пожалуйста, достаточно сменить значение с 0 на 1.