#include < stdio.h> #include < stdlib.h> #include < conio.h> #include < math.h> int main(){ int x, y; printf("\n vvedite x and y: "); scanf("%d" "%d", & x, & y); if (x < y) printf("\n x = %d, y = %d", (x + y)/2, 2 * x * y); else printf("\n x = %d, y = %d", 2 * x * y, (x + y)/2); printf("\n\n to "); getch( ); return 0; }
Ответ дал: Гость
var s1,s2: string;
begin
s1: ="параллелограмм";
s2: ="гром";
for i: = 1 to length(s1) do
begin
if i > length(s2) then s[i]='';
if s1[i]< > s2[i] then s1[i]=s2[i];
writeln(s1);
end;
end.
чем не вариант, если правил нету)
Ответ дал: Гость
var a: array[1..2,1..30] of integer; i,j: integer; begin for i: = 1 to 30 do begin writeln('введите номер ученика: '); read(a[1,i]); writeln('введите оценку: '); read(a[2,i]); end; for i: = 1 to 10 do begin writeln(i: 2,' - '); for j: = 1 to 30 if a[1,j]=i then write(a[2,i],' '); end; readkey; end.
Ответ дал: Гость
uses crt; var a,s: integer; begins: =0; writeln('введите числа'); while a< > 0 do beginreadln(a); if (a> 0) then s: =s+a; end; writeln('s=',s); end.
Популярные вопросы