Дана программа на языке паскаль: program a4; var x, k1, k2: integer; begin k1: =0 k2: =0 writeln (' введите три числа'); readln (x); if x< 0 then k1: =k1+1; if x< 0 then k2: =k2+1; intil x=0; writeln ('k1=', k1, '', k2=', k2) end составьте блок-схему, соответствующую программе. что является результатом работы программы?

begin

k1: =0

k2: =0

writeln (' введите три числа');

if   x< 0 then k1: =k1+1;

if   x< 0 then k2: =k2+1; (еще " числа)

 

intil x=0;

writeln ('k1=',k1,'',k2=',k2)

end

 

 

 

я думаю наверно

у тебя программа неправильная. не до конца понял, почему у тебя с какого-то бока стоит там какой-то intil x=0, если у тебя цикл, то должен был быть repeat сначала, потом уже until.

проверь программу, паскаль ответ тебе не выдаст.

а блок-схема вот.

#coding: utf-8 # python 3.5.2 w, h = [int(input(x)) for x in ("ширина: ", "высота: ")] matrix = [[0 for _ in range(h)] for _ in range(w)] num = 1; for col in range(w):         if (col + 1) % 2 == 1:                 for a in range(h):                         matrix[col][a] = num                         num += 1         else:                 for a in range(h - 1, -1, -1):                         matrix[col][a] = num                         num += 1 for col in range(h):         for row in range(w):                 print(matrix[row][col], end=' ')         print() пример: ширина: 7 высота: 5 1 10 11 20 21 30 31 2 9 12 19 22 29 32 3 8 13 18 23 28 33 4 7 14 17 24 27 34 5 6 15 16 25 26 35

#include < iostream> using namespace std; int main() {       int a,b,n = 0;       float s = 0;       cin > > a;       cin > > b;             for(int i = a; i < = b; i++)       {                 n++;                 s+=i*i;       }       s = s/n;       cout.setf(ios: : fixed);       cout.precision(2);       cout < < "s = " < < s < < endl;       return 0; }