Информатика

Вопрос/Задача:

Какими значками изображали египтяне слова солнце, идти, хлеб, рот.

Ответы на вопрос

Ответ
Ответ разместил: Гость

program n1; uses crt; var k: integer; m,y: real; beginreadln(m,y); if m< y then writeln('no') else if m=y then writeln('1') else while m> y do begin m: =m/105*100; k: =k+1; end; writeln(k); readlnend.

Ответ
Ответ разместил: Гость

вот собственно программка, все, что нужно, прокомментированно, писалось на turbo pascal, от pascal abc данная версия не значительно отличается.

program tolstushka; usescrt; varn0, n1, n2, x1, x2, x3: byte; beginclrscr; textcolor(white); textbackground(black); readln(n0, n1, n2); x1 : = (n1 * 100) div n0; {потеряла веса (в процентах) от первоначального в первую неделю}x2 : = (n2 * 100) div n0; {потеряла веса (в процентах) от первоначального во вторую неделю}x3 : = (n2 * 100) div n1; {потеряла веса (в процентах) от веса, потерянного в первую неделю}writeln; writeln('первая неделя : ' + ' ', x1 , 'вторая неделя' + ' ', x2, 'вторая неделя в сравнении с первой' + ' ', x3); readkey; end.

Ответ
Ответ разместил: Гость

program m;

uses crt;

var a,b,c,d,e,f,g,h,i,k,s: integer;

begin

s: =0;  

writeln(a,b,c,d,e,f,g,h,i,k);

readln(a,b,c,d,e,f,g,h,i,k);

s: =a+b+c+d+e+f+g+h+i+k;

readln(s);

writeln('s',=s);  

end.       

Ответ
Ответ разместил: ccfnwj3662

"солнце" - круг с точкой в центре

"идти" - две ноги

"хлеб" - полукруг

"рот" - сильно вытянутый   полуовал

Похожие вопросы

Вопросов на сайте: