?>
, прокомментировать написанные программы (нужно описать построчно программы): 1) #include #include int main() { char s[5], passw[]="kuku"; int i, k=0; for(i=0; !k && i<3; i++) { printf("\n Vvedite parol:\n"); gets(s); if(strstr(s, passw))k=1; } if(k) printf("\n parol prinat"); else printf("\n parol ne prinat"); system("pause"); return 0; } 2) #include #include void main() { char z; clrscr(); for(z='0';z<='9';z++) { if (z=='0' || z=='5') printf("\n"); printf (" %с-%в ", z, z); } getch(); } 3) #include main() { char c; c=getchar(); while(c!=EOF) { putchar(c); c=getchar(); } }
Ответы
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
var c, w: integer;
procedure check;
begin
var (a, b) := (Random(0, 20), Random(0, 20));
Print($'{a}*{b}=');
if a * b = ReadInteger then begin inc(c); Println('Правильно') end
else begin inc(w); Println('Неправильно') end;
end;
procedure res;
begin
Println($'Задано вопросов {c+w}');
Println($'Правильных {c}({(c*100)/(c+w):f1}%)');
Println($'Неправильных {w}({(w*100)/(c+w):f1}%)');
end;
begin
var start := true;
while start do
begin
Println('Проверим?(0/1)');
if ReadInteger = 0 then
begin start := false; res; end
else check;
end;
end.
Пример в приложении.